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Lieber Leser! 


Es ist das Leid der Besitzer ausster- 
bender Computertypen, weder aus- 
reichend Software, noch ausrei- 
chend Hardware für Erweiterungen 
und Reparaturen erwerben zu kön- 
nen. Der Tronicverlag ist nun selbst 
Opfer dieser Misere geworden. Un- 
ser VC 20 ließ sich schon längere 
Zeit nur durch heftiges Schlagen auf 
die Tastarur zu irgendwelchen Re- 
aktionen bewegen. Vor dem Heft 10 
hat er sich dann endgültig verab- 
schieder, nicht ohne noch dicken 
Unfug in das Listing von SCRUM- 
BLE zu schreiben. Ein neuer VC 20 
mußte also her. Finen ”Neuen” gibt 
es sowie nicht - also mußte der 
Kleinanzeigenmarkt herhalten. Ein 
neuer Gebrauchter verrichter nun 
| also seine Dienste bei uns, damit für 
die VC 20-Besitzer zumindest von 
uns noch ”Futter” angeboten wird. 


Damit auch für die alten Systeme 
Platz in unserem Heft bleiben, war 





Die »andere Seite« 


es notwendig geworden, einen Teil 
‘ der Listings in einem anderen For- 
mat auszudrucken. Dies berrifft be- 
sonders die Schneider-User, die bis- 
ker gewohnt waren, ihre Listings im 
Bildschirmformar vorzufinden. 


Dies ist. jetzt leider nicht mehr mög- 
lich. Um 3-spaltig ausdrucken zu 
können, sind jetzt 37 Zeichen auf er- 
ner Listing-Zeile. 

Ab der nächsten Ausgabe veröffent- 


lichen wir einen neuen 
Schneider-Checksummer, so daß 
sich die Anzahl der Zeichen sich 
nochmals verringert, Wir bitten die 
Schneider-Besitzer dies bei der Ein- 
gabe zu berücksichtigen. 


one 


Uwe Knierim 
Chefredakteur 
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Das Sonderheft für alle C-16/116 und plus 4 User! 


Die Software dazu: 


Sonderheft 3: 
CSOK 3 Kassette DM 35, — | Sonderheft 1: (Heft ausverkauft) 
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sterhunter, Tips & Tricks springen, Tankwars, Rocketman: 


Bitte beachten Sie: Die Anleitungen zu den Programmen stehen in den Heften. Auch diese können nachbestellt werden. Preis: 6,50 DM 
Tronic Verlag, Postfach 870, 3440 Eschwege, Telefon (05651) 300 11 
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Auch die Sonderhefte 1 und 2 sind noch auf Kassette oder Diskette erhättlich: 





Sonderheft 2: 
CSOK 2 . "Kassette DM 30, — 
CSOD 2 Diskette DM 30, - 


Tastprogramm, Haushaltskonten, Key-Gutter, Soundmachine, 
Pac-Mac, Jäfer des verlorenen Schawes, Oi of Texas, Mimt, 
Jäger der verlorenen Möhre, Diam, Skate-Boarding u. a. 


die »andere Seite« 
Computer kennen 


keine Grenzen 





Ein seltsamer Auftrag. Doch was 
tut man nicht alles für ein paar 
Scheine, nur, um sich vom Glück 
eine bescheidene Scheibe abzu- 
schneiden, Seit Stacey ihn verlas- 
sen hatte, war mit Jim nicht mehr 
viel anzufangen. Seine Arbeit im 
Silicon Valley in der Nähe von 
San Franzisco hatte Jim hingesch- 
missen, seinen zweiten Wagen 
hatte er für ein Butterbrot ver- 
kauft. Nun wohnte er vorüberge- 
hend bei Chris, einem guten alten 
Freund. An jenem Tag verfolgte 
Chris alles per Funk. Der Typ im 
grauen Anzug hatte gleich be- 
merkt, daß Jim ein ruhiger und 
friedlicher Mensch war. Der wür- 
de so schnell nicht nachsehen, 
was er bei sich hatte, wenn man 
ihm vorher genug drohen würde. 
Jim sollte nur einen einfachen 
Auftrag erledigen, und schon wä- 
re er alle Sorgen los. Der seltsame 
Fremde war Jim vom ersten Au- 
genblick an unsympatisch. An 
der Sache war etwas faul, keine 
Frage. Naja, er zahlte gut, allein 
fünf Riesen im Voraus. Und es 
war wirklich nicht vile dabei, nur 
"mal gerade ein Ausflug aufr dem 
Rio Grande. Dieser Fluß faszi- 
nierte Jim. Er bildete die Grenze 
zwischen Texas und Mexico. An 
vielen Stellen war der Fluß un- 
scheinbar und friedlich, doch wo 
er wild in den Golf von Mexico 
mündet, da konnte er Jim schon 


Ehrfurcht einflößen. Der Him- 


mel war klar und ließ das kühle 
Wasser in einem unfassbar schö- 
nen blau erscheinen. Jim atmere 
voller Genuß die reine, frische 
Luft ein und versuchte, nicht an 
diesen widerlichen Typ zu 
denken. 


Klar, von Mexico ging es weiter 
nach Cuba. Aber damit harte Jım 
nichts am Hur. Nein, er sollte das 
Zeug nur rüber nach Mexico 
schaffen. alles weitere war nicht 
sein Problem. Es kam ein leichter 
Wind auf. Was war wohl in den 
Kisten drin? Geld, Schmuck - 
nein, nein das war es nicht. Der 
Typ meinte nur, das würde Jım 
nichts angehen. doch er versicher- 
te ihm, daß es keine Drogen oder 
Waffen waren. Seltsam, eın gewis- 
ses Ehrgefühl konnte man ihm 
nicht absprechen. Jim hatte eine 
Aversion gegen alles, was mit 
Waffen, Gewalt oder Krieg zu- 
sammenhing. Seine Welt war die 
Welt der Unterhaltung. Zuhause 
im Silicon Valley... Verdammt 
noch mal, das konnte doch wohl 
nicht wahr sein. Maschinenscha- 
den, gerade jetzt. Jim stieg herab, 
um Werkzeug zu holen. Da stan- 


den sie. Drei Kisten , gerade einen 


halben Meter lang und hoch. Jim 
dachte an diese Krimis, die er frü- 
her oft gelesen hatte. In irgendei- 
ner Story, er glaubte sie war von 


Poe, schaffte ein Mörder die zer- 
stückelte Leiche in... Ruhe! Jim 
versuchte den ganzen Mist zu ver- 
gessen. Er sah sich die Maschine 
an. Nur eine Dichtung, na Gott 
sei Dank. Jim atmete auf und 
wollte gerade weiterfahren, als er 
die Flasche Wodka sah. Reiner, 
milder Wodka, Das hätte ihm hel- 
fen können, um sich die Kisten, 
den miesen Fremden und alles aus 
dem Kopf zu reißen. Ach was, er 
ließ die Flasche stehen und nahm 
sich fest,vor, nachdem er den Job 
erledigt hatte, darauf zurück zu 
kommen. 


Jim mußte an Stacey denken. Er 
konnte nicht anders. Stacey war 
seine erste und einzige Liebe. Ei- 
gentlich wollte Jim nie heira- 
ten.Für ihn hat es immer nur sei- 
nen Job im Silicon Valley gege- 
ben. Vielen puritanischen Ideen 
war er nicht abgeneigt. Nun ja, ir- 
gendwie hatte er schon immer auf 
die Richtige gewartet. Viele 
Freunde von Jim, auch Chris, hat- 
ten sich mir unzähligen Freundin- 
nen herumgetrieben. Schließlich 
haben sie sich für eine entschie- 
den. das hat schon etwas für sich, 
aber Jim konnte gut auf die Met- 
hode verzichten. Stacey war seine 
große Liebe, eine andere würde es 
nicht geben. Er liebte ihre aufge- 
schlossene, einmalige Art. Eıgent- 
lich hatte ste ihn kennegelernt, 
nicht umgekehrt. Jim ergriff sel- 
ten die Initiative, doch dieses Mal 
war es anders. Er war fest ent- 
schlossen, die Kisten rüber nach 
Mexiko zu schaffen. 

Es wurde nun bald dunkel. Ver- 
Jdammt, Jim hielt es einfach nicht 
mehr aus. Er ging zu den Kisten 
und begann sie zu öffnen. Erst 
vorsichtig, niemand solle es 
hachher merken. Die Neugier 


wurde immer größer, er riß die 


Bretter einfach auseinander. Er 
konnte es nicht glauben, was er da 
sah: Im ersten Paket eine Compu- 
tertastatur, Ähnlich einer elektri- 
schen Schreibmaschine. Im zwei- 
ten Paket war ein kleiner Moni- 
tor, er erinnerte ihn an ein 
tragbares Fernsehgerät. Im letzten 
Paket schließlich waren Disker- 
ten und ein Laufwerk, um die auf 
den Scheiben gespeicherten Infor- 
mationen in den portablen Com- 
puter zu ‚lesen. Tja, Jim kannte 
sich mit diesen Dingern gut aus. 
Er baute das System hastig auf, 
steckte hier und da ein Kabel ein 
und schaute gespannt auf den Mo- 
nitor, um die gespeichrten Daten 
zu sehen. Der Monitor blieb leer. 
Jim konnte sich kaum vorstellen, 
daß er einen Fehler gemacht hat- 
te. Er überlegte sich schon, ob er 
den ganzen Kram wieder ver- 
packen sollte, als plötzlich eine 
Nachricht auf dem Bildschirm er- 
schien: 


- top of form - 


Hallo! 


. Wie ich sehe, haben Ste Ihre Auf- 


gabe gut erfüllt. Oder sollten Sie 
etwa nachgesehen haben, bevor 
sie in Mexico waren??? Wie dem . 
auch sei, wir sind inzwischen an 
einer anderen Stelle rüber gekom- 
men, die Typen waren ja mit Ih- 
nen beschäftigt... 
Anscheinend leben Sie ja noch, al- 
so nichts für ungut, Übrigens ha- 
ben wir fası das gleiche Zeugs mit- 
enommen, was Sie an Bord ha- 
Ben. Nur die Disketten unter- 
scheiden sich von ihren, unsere 
haben nämlich so einige interes- 
sante informationen über gewisse 
amerikanische Industrie-Kon- 
zerne gespeichert. Die Computer- 
ranlage dürfen Sie als kleine Be- 
lohnung natürlich behalten. !!! 








HACKER 


Grubmil — melde Dich mal! 


Schau mal! Meın 
nwes Spiel! Toll! 
Der Feind schiept 
ZWruckl 
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Kl Man macht die 


Ye 
er? 
- 










Spiele hevzutage 
WW realıstisch!.. 
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Am 2.November 1986: 
Vierte Münchner 
Elektronik-Börse 


Mit dieser Veranstaltung sollen 
wieder Hobby-Elektroniker, 
Computer-Fans und Tüftel-Profis 
angesprochen werden. Die Grup- 
pe der Einsteiger bleibt bei den 
Organisatoren ebenfalls nicht un- 
berücksichtigt. 

Tips und Tricks für Einstieg und 
Erweiterung geben wieder die 
Vertreter der Compurter-Clubs 
und Firmen an Ihren Info-Stän- 
den. Für günstige Angebote aus 
dem Bereich der Büro- und Frei- 
zeitelektronik sorgen wieder zahl- 
reiche Verkausstände der privaten 
Anbieter. Aufgrund der guten Er- 
folge der vorangegangenen „Elek- 
tronik-Flohmärkte“ ist auch die- 


Forsetzung von Seite 4: 


Den restlichen Kies hatten wir lei- 
der nicht klein. Sie sind uns hof 
fentlich nicht böse.... 


— bottom of form - 


Nun war alles klar, Jeden Mo- 
ment würden Grenzbeamte oder 
wer weißt Gott was für T’ypen 
hier auftauchen. Die verdammten 
Schweine harten denen einen Tip 
gegeben, wo Jim war, und sie 
selbst würden sich unauffällig ab- 
setzen. Jim sprang sofort auf und 
sah sich um. Tatsächlich, da ka- 


men schon zwei Boote, Nein, das, 


war keine Polizei. Wahrschein- 
lich hatte so mancher Industrie- 
boß einiges zu verheimlichen und 
erledigte das selbst auf seine Art. 
Die würden zuschlagen bevor Jim 
auch nur ein Wort zur Erklärung 
ausgesprochen hätte. Jim war der 
Köder, den die Typen auch sofort 
schlucken würden. 


So nicht! Jim wußte sofort, was 
zu tun war. Zuerst schmiß er wü- 
tend diesen verdammten Schrott 
über Bord. Dann alarmierte er 
über Funk Chris. Der kapierte 
schon und würde den Rest erledi- 
gen. Dann holte er zum ersten 
Mal alles aus den Maschinen raus, 
was sie brachten. Schließlich hatte 
er ein gutes Stück Vorsprung. 
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ses Mal mit einem starken Publi- 
kumszuspruch zu rechnen. 


Nähere Information und 
Siandreservierung sind mög- 
lich unter den Rufnummern 
089/6519030 oder 1495190. Die 
Standgebühr beträgt DM 30,- 
für Privatleute und DM 99,- für 
Firmen-Info-Stände. Der Besu- 


“ chereintritt kostet 3,- DM. 


Standort der 4. Münchner Elek- 
tronik-Börse ist der Festsaal des 
„schwabinger Bräu“ an der 
Münchner Freiheit, Leopoid- 
straße 82. 


Wahrscheinlich hatten die Idioten 
nicht damit gerechnet, daß Jim so 
früh den Mur aufbringen würde, 
die Kisten zu öffnen. Er schaffte 
es tatsächlich. In einer halsbreche- 
rischen Fahrt erreichte er das gu- 
te, texanische Land, er hatte 
Glück. Ein freundlicher Autofah- 
rer nahm ihn mit. Am nächsten 
Abend saßen Jim und Chris zu- 
sammen in der Kneipe nicht weit 
von El Paso. An der Wand hing 
zwischen einem Sattel un einer 
Winchester ein Fernsehgerät. Der 
Wirt wartete schon gespannt auf 
den alten Western ”Rio Bravo”, 
Jim und Chris waren die einzigen 
Gäste, In den Nachrichten wurde 
berichtet, daß einige Industrie- 
spione gefaßt wurden. Auch eine 
Reihe von lang gesuchten Killern 
konnten festgenommen werden. 
Angeblich sollten sie im Auftrag 
von schwerreichen Firmenchefs 
gearbeitet haben. Die. Untersu- 
chungen waren noch nicht abge- 
schlossen. Chris hatte gute Arbeit 
geleistet und die Polizei rechtzei- 
tig alamiert. Doch für Jim war es 
ein noch viel glücklicherer Tag, 
als er zu hoffen gewagt hätte. Sta- 
cey stnd in der Tür, lächelte, lief 
auf Tom zu. Sie umarmte und 
klüßte ıhn. Chris hatte tatsächlich 
gute Arbeit geleistet und nicht 
nur die Polizei benachrichtigt! 


Patrick Schmitz 


report 
Die Gewinner 


des Preisrätsels 
aus Sonderheft 3! 


Die 10 Haupigewinner sind: 





Klaus Klamm, 7000 Stuttgart 75 
Erich Lucht, 2390 Flensburg 

Carsten Sundmacher, 3160 Lehrte 
Gerd Maul, 4708 Kamen 

Arvid Schramm, 2984 Hagermarsch 
Josef Wittmann, 8483 Vohenstrauß 
-Thomas Truc, 2817 Dörverden-Stedorf 
Alexander Meyer, 4600 Bortmund 
Ulrich Mecklenbrauck, 4700 Hamm 1. 
Peter Krick, 6362 Wöllstadt _ 


Die Schauspielerin hieß: Madonna! 





So war das bestimmt nicht gemeint, als in 
der Anleitung stand, daß man die grünen 
Männchen abschießen soll. 


Klaus Klamm 
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Neues vom Software-Markt 





„Mission Elevator“ oder Der Kampf im Fahrstuhl 


Programm: Mission Elevator, 
System: C-64, Schneider, Spec- 
trum (in Kürze), Preis: Kassette 
35,- DM, Diskette 49,- DM, 
Hersteller: U.S. Gold, Vertrieb: 
Micropartner, Gütersloh 


Eine Katastrophe bahnt sich an! In 
einem 64-stöckigen Hotel wurde 
eine Bombe entdeckt, die jeden 
Moment zu explodieren droht. Es 
ist bekannt, daß sich das Steuer- 
werk der Bombe im obersten 


Stockwerk des Hotels befindet, 


Aber der betreffende Steuercom- 
puter kann nur mit einem Ge- 
heimcode ausgeschaltet werden. 
Schlüpfen Sie ın die Rolle des 
„Hausdetektives“ und begeben 
Sie sich auf die Suche nach dem 
Code. Doch Eile ist geboten, denn 
der Countdown läuft! Soweit die 
Story von dem neuen Action-Ad- 
venture Mission Elevator von 
US. Gold. 

Die ganze Angelegenheit ist na- 
türlich nicht so einfach wie sie aus- 
sieht, Im Gegenteil: zahlreiche 


Gegenstände müssen gefunden, 
Hindernisse überwunden und 
Gefahren ausgewichen werden. 
Zu Begirn ist es ratsam zum Por- 
tier zu gehen und sich den Univer- 
salschlüssel für die Zimmerrüren 
zu holen, Zusätzlich müssen auch 
Karten- und Würfelspiele be- 
herrscht werden, um an den Wa- 
chen vorbei, in die nächste Erage 
zu gelangen. Ganz zu schweigen 
von den Agenten, die alles versu- 
chen, Sie von Ihrer Mission abzu- 
bringen. 


Mission Elevator besitzt eine 
detaillierte Grafik; Uhren, Ge- 
mälde an den Wänden, Stühle 
und andere Hoteleinrichtun- 
gen sind realistisch dargestellt. 
Weiterhin zeichnet sich dieses 
Programm durch eine gelunge- 
ne Animation der einzelnen 
Personen und durch einen zügj- 
gen Spielablauf aus. Ein Spiel, 
das demnächst bestimmt inden 
TOP TEN zu finden sein wird. 


„1. C. U.PS.“ - Noch ein Weltraumabenteuer! 


Programm: IL. C. U. B S,, Sy- 
stem: Spectrum, C-64/128, 
Preis: 56,- DM für Diskette, 39,- 
DM Kassette, Hersteller: Odin 
Computer Graphics Ltd, The 
Podium, Steers House, Can- 
ning Place, Liverpool, Mersey- 
side, L 18HN, England 


Als Sonderagent-Anwärter der 
Internationalen Kommission der 
Universellen Lösung von Proble- 
men (1.C.U.P.5.) müssen Sie an ei- 
ner Computersimulation teilneh- 


men, die zu einer erfolgreichen 
Durchführung Können, Ge- 
schicklichkeit und Reaktions- 
schnelligkeit unter Streßbedin- 
gungen erfordert, So wird bei- 
spielsweise die Steuerung eines 
Eskortenraumschiffes verlangt, 
wie Sie zum Schutz von Botschaf- 
tern aus den Lichtwelten verwen- 
det werden. Der Flugkörper muß 
durch drei Abschnitte eines 
Raumtunnels fliegen. Bereits in 
diesem Abschnitt treten durch das 
Erscheinen feindiicher Raum- 


schiffe die ersten Gefahren auf. 
Sind die drei Abschnitte durch- 
quert, müssen vier Teile einer 
Bombe, die innerhalb des Raum- 
schiffes versteckt wurden, wieder 
gefunden werden, Um dieser Auf- 
gabe gerecht zu werden, steuert 
der Spieler das neuste Modell der 
Anthroboter:; einen DEEN Mo- 
dell 2. 

Innerhalb dieses Levels bietet die 
Commodore-Version ın der unte- 
ren rechten Ecke des Bildschirms 
ein besonderes Feature: eine be- 


Wieder mal ein Höhlenabenteuer 
The very big Cave Adventure 


Programm: The very big Cave 
Adventure, System: Spectrum, 
C-64, Schneider, Preis ca. 30,- 
DM, Hersteller: CRL Group, 
CRL House, 9 Kings Yard, Car- 
penters’Road, London E15 
2HD, England 


Vor Ihnen lege nun das erste 
Computer-Adventure. - 

Was, das glauben Sie mir nicht? 
Nun, es ist eine nicht ganz ernst zu 
nehmende Neufassung des ersten 


Abenteuerspiels! Zur Story: Fr- 
gendwo in einem kleinen Wald 
befindet sich ein „idyllisches“ Tal. 
In diesem besagten Tal befindet 
sich wiederum ein in einem Fluß- 
beit eingelassenes Gitter, durch 
das man in die geheimnisvollen 
Gänge und Höhlen gelangt, die 
den Abenteurer zu Schätzen und 
verborgenen Kostbarkeiten füh- 
ren. 

Fazit: Da dieses Adventure aus 
der Feder des ST. BRIDES Team 


stammt, ist Humor „im Preis 
inbegriffen“. Durch diesen Hu- 
mor und eine Supergrafik (jeder 
Ortbesitztseine eigene Charak- 
teristische Grafik!) entsteht ei- 
ne sehr ansprechende Atmos- 
pkäre. THE VERY BIG CAVE 
ADVENTURE wurde mit dem 
Quill, Illustrator und PATCH 
geschrieben. Das Ergebnis kann 
sich sehen lassen. - 
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wegte Mondlandschaft, einen 
sprechenden Kopf und andere 
grafisch eindrucksvolle Bilder. 


Fazit:L.C:U.BS. ist ein sehr auf- 
wendig programmiertes Spiel, 
das von der Spielidee sicher 
nichts neues bringt, doch durch 
die eindrucksvolle Grafik und 
die tollen Effekte ist dieses Pro- 
gramm sicherlich „spielens- 


Bitte legen Sie Ihrer 
Programmbewerbung 


einen adressierten 
und ausreichend 
frankierten DIN-A5 
Umschlag bei. 


Vielen Dank! 
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"Wir haben die Software, die Sie suchen! 
wir haben die Software, die Sie suchen! 
Commodore 64/128 Commodore 16/115/PLUS4 










































































































. Kassette Diskette Kassette 
Dragons l.air 32,950M 3895DM ACE 32.00 DM 
Five-a-side-soccer 14,95 DM Alrwoli 29,00 DM 
Green Beret 25.00 DM Bandits at Zero . 14,95 DM 
International Karate 25,00 DM Beach Head 24,95 DM 
Knidht Ar SDM AAO DM  Lakskelei je 300 DM 
'T-% night Rider , , assics | + je 34, 
So bestellen Sie: Mai Vie 329 DM 4495 DM Commando 26.5 DM 
Der Mindestbesteilwertvon Software | | Namman A “308 om 
liegt bei 15.00 DM! Nas 25.00 DM 48,95 DM Frank Bruno’s Boxing 5500 DM 
Sie können das Geld in bar oder per ing Pong , unslinger ‚00 
. araı Tau Geti 32,95DM 48,95 DM _ International Karate 24,95 DM 
| Beheckihrerschriftlichen Bestellung The last v8 14.95 DM Kikstart 9:95 DM 
| gen. Warriors of Rass 38,95 DM 54,95 DM Leapin Louie 2300 DM 
Bei Nachnahme-Versand werden i Int 0X ‚ 
4.00 DM für Porto-Kosten erhoben. Schneider CPC (464, 664, 6128) Bobo Kright ‚99 IM 
Auslandsbesteilungen werden nur Batman 2300 DM 44,95DM  Yie ar Kung-Fu 29,00 DM 
per Vorauskasse entgegengenom- Exploding Fist 25,00 DM Winter Olympiade 29,00 DM 
men! | Sack eh 23 M 32.95 DM 
ack, the Nipper , , 
Aufen Sie uns doch einfach einmal Movie 25.95 0M 449504 ATARIST (260, 520, 1040) 
an! Unsere Telefone sind wochentags Ping Pong 29800 DM 38,95 DM . Diskette 
ab 9.30 Uhr für Sie zu erreichen! Rock 'n Wrestie 25,00 DM Barrowed Time 59,00 DM 
Sabotetr 32,950M 32,95DM Leader Board (Golf) 75,00 DM 
“ Spindizzy 25,00 DM vo: Mindshadow 59,00 DM 
SOFTWARE VERSAND Tau Ceti 32,95 DM Operation Hongkong 59,00 DM 
Yie ar Kung-Fu 29,00DM 34,95 DM The Pawn 75,00 DM 
ANDREAS BACHLER Winter Games 32950M 5495DM Winter Games 79,00 DM 
POSTFACH 429 . . an . ’ 
D-42930 BOCHOLT Fordern Sie kostenloses Informationsmaterial über unser Liefer-Programmfürfolgende 
Computer an: COMMODORE 64/128, COMMOBORE 18/118/ PLUS 4, SCHNEIDER 4647 
664, ATARI 130XE/2605ST/5208ST/300XL, SINCLAIR SPECTRUM und MSX. 


Bitte geben Sie immer Ihren Computertyp an 


= (028 71) 183088 






Unser 1. Angebot: 
64 K-Speichererweiterung für C1I6+C116 


Bausatz — bestehend aus: allen Bauteilen und ausführlicher Anleitung, 
umschaltbkar 64K/16K - geliefert in stabiler Hurtbox. 








Bitte Computeriyp angeben! Bestell-Nr. HWS-1.786 45, — DM + NN (kei Vorkasse + 2,- DM Versund) 
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Auf vielfachen Leserwunsch haben wir uns entschlossen, unser Druckverfahren für 
Commodore-Listings zu ändern. 

Steuerzeichen sowie alle Grafikzeichen werden zukünftig durch Klartext ersetzt. 
Der Ausdruck ist kompatibel zum bisherigen Druckverfahren, ein neuer Checksum- 
mer ist aus diesem Grund nicht erforderlich. 


Eingabehinweise für alle Commodore Rechner! 


Wer sich schon erwas näher mit den Commodore Rechnern befaßt har, wird sicher- 
lich wissen, daß der Grafiksatz des C 64 sehr viele ähnliche Symbole enthält, Aus die- 
sem Grund ist es oft sehr schwer, einzelne Zeichen, wie zum Beispiel horizontale Li- 
rien, voneinander zu unterscheiden. Besonders macht sich dieser Nachteil in Listings 
bemerkbar, welche die Bildschirmgrafik mit PRINT-Zeilen aufbauen. 

Bisher haben wir in unserem Ausdruck lediglich die Steuersequenzen wie CTRL-RVS 
ON oder CTRL-BLUE durch Klartext ersetzt, ab dieser Ausgabe werden jedoch auch 
alle Grafikzeichen durch ein Schlüsselcode erseizt. Durch diese Merhode sind Ver- 
wechselungen praktisch völlig ausgeschlossen. 


Wie arbeitet unser Klartext? 


Wer schon nach dem alten Verfahren Programme eingegeben hat, wird sicherlich kei- 
ne Schwierigkeiten mit der Umstellung haben. 

Für die neu hinzugekommenen Leser erkläre ich jedoch das Verfahren noch einmal 
grundlegend. 

Alle sogenannten Steuerzeichen (z.B, eine Farbe) sowie ein Grafikzeichen, werden in 
unseren LISTINGS durch ein CODEWORT, welches die Taste bzw. Tastenkombı- 
nation kennzeichnet, ersetzt. Eine Tabelle der Tastenfunktionen finden Sie in jedem 
Tropic-Mapazin (z.B. Compurronie o. Compute Mit). Das folgende Beispiel zeigt den 
Unterschied zwischen unserem alten und dem neuen Druckverfahren: 


GC&44 LISTING MIT CHECKSUMMEN {C v1.03 


10 REM BISHERIGER AUSDRUCK <1187 
20 PRINT" DENT «52> 
30 PRINT] =" <35> 
40 PRINT" A Fiel " <149> 
50 PRINT"ENDE" X246> 


ENDE DES LISTINGS 
EDRUCK:F-B.1 


5-64 LISTING + CHECKEUMMEN (BE V1.07 





10 REM NEUER AUSDRUCK | <162> 
20 PRINT"IBOHHA 50 CY9 5P}" <52> 
30 PRINT"(SA SB SC SD SE SF SG SH SI Sl SKI" <B5> 
40 PRINT"ICA CB CE CD CE CE 653" <149> 
50 PRINT"ENDE" <246> 


ENDE DES LISTINGS 
TDRUCK=F.B./0.5.1 


Wie in dem Beispiel zu erkennen ist, werden alle Steuertasten durch die entsprechen- 
de Tastenbeschreibung markiert. Das Wort DOWN steht in diesem Fall für Cursor 
nach unten. Die Zahl dahinter gib: an wie oft die Taste betätigt werden muß. In unse- 
rem Beispiel müßte also die Taste CURSOR abwärts viermal betätigt werden. Die ge- 
naue Beschreibung, welche Taste gemeint ist, entnehmen Sie bitte der Klartext- 
Tabelle, welche am Ende dieser Beschreibung abgedruckt ist. Achtung für C16 und 
C64 existieren zwei verschiedene Tabellen! 

Wie ebenfalls aus dem Beispiel zu erkennen ist, werden auch alle Grafikzeichen durch 
einen 2-Buchstaben-Code ersetzt. Der erste Buchstabe ist entweder ein »5« oder ein 
»Ce, Das »Ce steht für die » COMMODORE TASTE« und das »S« für die »SHIFT 
TASTE«. Der zweite Buchstabe bezeichnet die Aufschrift der Taste, Das »5A« in un- 
serern Beispiel bedeutet also, daß die "Taste SHIFT zusammen mit dem Buchstaben 
»As betätigt werden muß. »C+« würde bedeuten, daß die Taste COMMODORE zu- 
sarnimen mit dem PLUS Zeichen gedrückt wird. Wird direkt hinter dieser Buchsta- 
benkombination eine Zahl angegeben, so gibt diese die Anzahl der jeweiligen Zeichen 
an. Das Zeichen COMMODORE Y wurde also in unserem Beispiel 9 mal eingege- 
ben, Durch diese Mechode entfällt zukünftig das lästige Abzählen von mehrfachen 
Zeichen. - 

Sollten Sie einmal nicht wissen, welche Taste gemeint ist, so hilft Ihnen ein Blick in 
unsere Klartext-Tabelle weiter. 

Um im Listing Tastenbezeichnungen von normalen Zeichen zu unterscheiden, wer- 
den alle Tastenkennzeichnungen in geschweifte Klammern gesetzt. Diese dürfen 
selbstverständlich nicht eingegeben werden. Auch Leerzeichen innerhalb geschweit- 
ter Klammern dienen nur zur Trennung einzelner Tastenfunktionen und dürfen 
ebenfalls nicht eingegeben werden. Um die Tastenfunktionen noch besser hervorzu- 
heben, werden diese in unterstrichener Kursivschrift (Schrägschrift) dargestellt. Alle 
Zeichen außerhalb der geschweiften Klammern werden normal abgedruckt und auch 
eingegeben. 

Auf den ersten Blick hört sich das sicher etwas kompliziert an, ist jedoch in der Praxis 
ganz einfach. Wenn man sich erst einmal an die in Klartext geschriebenen Zeichen 
gewöhnt har, wird mar den großen Vorteil dieser Schreibweise erkennen. 


Frank Brall 
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Noch eine wichtige Anmerkung ! 

Aus technischen Gründen können drei Zeichen von unserm Ausgabegerät nicht ver- 
arbeitet werden. Diese Zeichen sind: Pfeil nach hriks, engl. Pfund, Pfeil nach oben 
u Steht für den Pfeil nach links 

% Steht für das englische Pfund-Symbol 

* Steht für den Pleil nach oben 


Klartext-Tabelle für Commodore 64 und VC 20 





TASTE NEBEN RECHTEN SHIFT 


DOWN CURSOR ABWARTS 
UP CURSOR HINAUF HIT-TASTE & TASE NEBEN 
RECHTEM SHIFT 
CLR CLEAR SCHIRM SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
INST EINFÜGEN SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
HOME CURSOR IN ECKE 2.TASTE VON GANZ RECHTS OBEN 
DEL DELETE TASTE GANZ RECHTS OBEN 
RIGHT GURSOR RECHTS TASTE GANZ RECHTS UNTEN 
LEFT CURSOR LINKS SHIFT-TASTE & TASTE UNTEN RECHTS 
SPACE LEERZEICHEN LEERTASTE (GRÖSSTE TASTE) 
Fi FUNKTIONSTASTE FUNKTIONSTASTE Fl 
F2 FUNKTIONSTASTE FLUNKTIONSTASTE F2 
F3 FUNKTIONSTASIE FUNKTIONSTASTE F3 
F4 EFUNKTIONSTASTE FUNKTIGNSTASTE F4 
F5 FUNKTIONSTASTE FUNKTIONSTASTE F5 
F6 FUNKTIONSTASTE FUNKTIONSTASTE F& 
F7 FUNKTIONSTASTE FUNKTIONSTASTE F? 
78 FUNKTIONSTASTE FUNKTIONSTASTE F8 
BLACK SCHWARZ CONTROL-TASTE & 1 
WHITE WEISS CONTROL-TASTE & 2 
RED ROT . CONTROL-TASTE & 3 
CYAN TUERKIS CONTROL-TASTE & + 
PURPLE PURPUR CONTROL-TASTE & 5 
GREEN GRUN CONTROL-TASTE & 6 
BLUE BLAU CONTROL-TASTE & 7 
YELLOW CONTROL-TASTE & 8 
RYSON INVERSE EIN CONTROL-TASTE & 9 
RYSOFF INVERSE AUS CONTROL-TASTE & O0 
ORANGE ORANGE COMMODORE-TASTE & 1 
BROWN BRAUN COMMÖODORE-TASTE & 2 
LIG.RED HELLROT COMMODORE-TASTE & 3 
DGREY DUNKELGRAU COMMODORE-TASTE & 4 
MOREY MITTELGRAU COMMODORE-TASTE & 5 
UGGREEN HELLGRUN COMMODORE-TASTE & 6 
LIGBLUE HELLBLAU COMMODORE-TASTE & 7 
HGREY HELLGRAU COMMODORE-TASTE & 8 
CTRL ..  CTRLZEICHEN CONTROL-TASTE UND DAS... ZEICHEN 
In GRAFIKZEICHEN SHIFT-TASTE UND DAS .. ZEICHEN 


C.. GRAFIKZEICHEN COMMODORE-TASTE UND DAS .. ZEICHEN 
SHIFTSPACE UNSICHTBARER CODE SHIFT-TASTE UND SPACE 











Klartext-Tabelle für Commodore C16 und Plus 4 


TASTE NEBEN INST DEL; RECHTS OBEN 


DOWN CURSOR ABWÄRTS 

UP CURSÖR HINAUF 3. TASTE NEBEN DOWN VON RECHTS OBEN 
CLR CLEAR SCHIRM TASTE ÜBER RETURN ZUSAMMEN MIT SHIFT 
INST EINFÜGEN SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
HOME CURSOR IN ECKE 2. TASTE VON GANZ RECHTS OBEN 

DEL DELETE TASTE GANZ RECHTS OBEN 

RIGHT CURSOR RECHTS 4. TASTE VON RECHTS OBEN 

LEFT CURSOR LINKS 5. TASTE VON RECHTS OBEN 

SPACE LEERZEICHEN LEERTASTE (GRÖSSTE TASTE) 

Fi FUNKTIONSTASTE _ EUNKTIONSTASTE Fi {VORHER DEFINIEREN) 
r2 FUNKTIONSTASTE _ FUNKTIONSTASTE F2 (VORHER DEFINIEREN 
E FUNKTIONSTASTE  FUNKTIONSTASTE F3 (VORHER DEFINIEREN} 
Fa FUNKTIONSTASTE FUNKTIONSTASTE F4 (VORHER DEFINIEREN) 
EB. EUNKTIONSTASTE  BUNKTIONSTASTE F5 (VORHER DEFINIEREN) 
E6 FUNKTIONSTASIE FUNKTIONSTASTE F6 (VORHER DEFINIEREN) 
E7 FUNKTIONSTASTE  FUNKTIONSTASTE F7 (VORHER DEFINIEREN) 
23 EUNKTIONSTASTE _ FUNKTIONSTASTE Fs (VORHER DEFINIEREN) 
BLACK SCHWARZ CONTROL-TASTE & 1 

WHITE WEISS CONTROL-TASTE & 2 

RED ROT CÖONTROL-TASTE & 3 

CYAN TUERKIS CONTROL-TASTE & # 

PURPLE  PURPUR CONTROL-TASTE & 5 

GREEN GRÜN CONTROL-TASTE & 6 

BLUE BLAU CONTROL-TASTE & 7 

YELLOW GELB CONTROL-TASTE & 8 

RVSON INVERSE EIN CONTROL-TASTE & 9 

RYSOFF INVERSE AUS CONTROL-TASTE & 0 

ORNG ORANGE COMMODORE-TASTE & 1 

BRN BRAUN COMMODORE-TASTE & 2 

YLGN GELBGRÜN COMMODORE-TASTE & 3 

PINK ROSA COMMODORF-TASTE & 4 

BLGRN  BLAUGRÜN COMMODORF-TASTE & 5 

LBLU HELLBLAU COMMODORE-TASTE & 6 

D.BLU DUNKELBLAU COMMODORE-TASTE & 7 

L.GRN HELLGRÜN COMMODORF-TASTE & 8 

CARL... CIRL-ZEICHEN CONTROL-TASTE UND DAS ... ZEICHEN 

5. GRAFIKZEICHEN SHIFT-TASTE UND DAS .. ZEICHEN 

C.. GRAFIKZEICHEN COMMODORE-TASTE UND DAS .. ZEICHEN 
FLASHON  BLINKEN EIN "CONTROL-TASTE UND "," 

FLASHÖFF BLINKEN AUS GONTROL-TASTE UND "." 


SHIFTSPACE UNSICHTBARER CODE SHIFT-TASTE UND SPACE 








Schwankungen und Störungen in 
der Netzspannung sind oft Ursa- 
che für Ausfälle in Computersy- 
stemen. Durch  elektrostatisch 
oder elektromagnetisch induzier- 
te Spannungen können Compu- 
ter beschädigt oder gar zerstär: 
werden. Bikischirmanzeigen oder 
Speicher werden zum Beispiel oh- 
ne erkennbaren Grund gelöscht. 
Die Ursache hierfür sind meistens 
nicht entstörte Stromversorgun- 
gen, d.h. ganz normale elektroni- 
sche Anschlüsse in Büros. 

Die Gerätehersteller versuchen, 
dieses Problem mit Filtern zu lö- 
sen, die sie in die einzelnen Geräte 
einbauen. Störungen, die durch 
die Verbindungen mehrerer Ge- 
räte entstehen, können dadurch 
jedoch nicht verhindert werden. 





Außerdem schaden billige Stö- 
runterdrücker, die mir einfachen 
Filtern arbeiten, manchmal mehr 
als sie rürzen. So z.B. wirken Fil- 
ter, die nur auf lineare und konti- 
nuierlich ansteigende Impulse an- 
sprechen, oft zu spät, 

Die SICOS Lösung: Der in die 
Stromschiene eingebaute Netzfil- 
ter, mit seinen hervorragenden 
Dämpfungseigenschaften elimi- 
niert alifällige Störeinflüsse und 
ist somit ein absolut notwendiger 
Bestandteil am Compurerarbeits- 
platz geworden, 

Für technische Einzelheiten wen- 
den Sie sich bitte an: 

SECOM AG 
INTERNATIONAL 
Einsiedlerstraße 31 

CH - 8820 Wädenswil 


Haben Sie sich auch schon einmal 
über das Hantieren mit Compu- 
terlisten geärgert? 


Neu ım Döbbelin & Boeder Sor- 
timent: 

Disky Paper-File & Disky Dara- 
Binder - macht EDY-Listen ”um- 
gänglicher”! 


Ablegemappen mit verstellbaren 
Aufreihfäden für ungetrennte 
EDV- Listen. Aus unverwästli- 
chem Kunststoffmaterial mit 
Indexfenster-/Karte zur Beschrif- 
tung. Sie sind ideal für den tägli- 
chen Umgang mit Datenaus- 
drucken. Bei Disky Paper-File, 





für 8-12” x 240-250 mm EDV- 
Listen, 25 mm dick, lassen sich die 
Listen leicht umblättern oder ent- 
nehmen, alle Daten sind auch an 
der Heftung deutlich lesbar. Be- 
sonders geeignet für Besprechung- 
sunterlagen und zum Mitnehmen 
in der Aktentasche. 


Disky Data-Binder, für 8-12” 
160-250 mm EDYV-Listen, 60 mm 
dick, paßt durch die verstell- und 
versenkbaren Aufkängeschienen 
in jedes Archiv-System So kön- 
nen die Listenausdrucke von bei- 
den Seiten entnommen werden, 


Das spart Zeit beim Arbeiten. 





Neu: Klarsicht-Joystick von Dynamics 





Die DYNAMICS marketing 
GmbH läßt sich - rein technisch 
gesehen - in die Karten gucken: 
Den erfolgreichen und beliebten 
Competition-Pro Joystick gibt es 
jetzt im transparenter Kunststoff 
gehäuse. Für Spiele-Fans mit $i- 
cherheit ein echter High-Tech- 
Schlager! 


Der Competition-Pro ist tierisch 
robust, schnell und präzise. 
Spiele-Freaks wissen das, 


Neu am Compezition Pro von 
Dynamics ist aber jetzt das tran- 
sparente Kunststoffgehäuse. Da 
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ist Joystick-Technik sichtbar ge- 
macht und man kann während 
des Spiels sehen wie's funktio- 
tiert. Natürlich ist auch der tran- 
sparente Comperition-Pro ausge- 
stattet mit Mikroschaltern und 
8-Wege-Steuerung. 


Eine orginelle Idee, die so richti 
in unsere High-Tech-Zeit paßt. 


Unverbindliche 
lung: 49,-DM 


DYNAMICS marketing GmbH 
Friedensallee 35 - 
2900 Hamburg 50 


Preisempfeh- 


leserbriefe 


Sehr gechrte Dame, 
sehr geehrter Herr, 


als ich am 21.6. Ihre Zeitschrift 
COMPUTE MIT kaufte, habe 
ich mich sehr über die Speickerer- 
weiterung für den C16 gefreut. 
Und als ich dann in der Sonde- 
rausgabe den Autostarter fand, 
war ich völlig futsch! 


Ich habe mir aber auch die Anzei- 
ge über Autorenrechte durchgele- 
ser und habe disbezüglich einige 
Fragen: 


- Bin Ich ım Besitz eines Copy- 
rights (c), sobald ich der alleinige 
Autor eines Programms bin? 

- Was muß ich tun, wenn ich eı- 
nen Teil eines aus einer Compu- 
terzeitschrift stammenden Pro- 
gramm übernehmen will? 


Ich hoffe Sie können mir helfen. 
Ferber, Baden-Baden 


Hier die Antworten zu den Fra- 
gen, womit wir Ihnen hoffent- 
lich weiter helfen können: 


zur ersten Frage: Natürlich sind 
Sie im Besitz eines Copyrights, 


wenn Sie der alleinige Autor eines 
Programms sind. Sollten Sie aller- 
dings Ihr Programm zur Veröf- 
fentlichung an eine Zeitschrift 
verkauft haben, liegen natürlich 
die Rechte beim Käufer. 

zur zweiten Frage: Sie dürfen auf 
gar keinen Fall eine Routine ohne 
weiteres übernehmen. Es könnte 
Sie in arge Schwierigkeiten brin- 
gen. Immer erst mal mit dem Au- 
tor, bzw. dem Besitzer Kontakt 
aufnehmen und nachfragen. Soll- 
ten Sie z.B. eine Routine aus unse- 
rer Zeitschrift übernehmen, so 
dürfen Sie das neue Programm, 
bzw. die Erweiterung nur an uns 
verkaufen. Versuchen Sie das Pro- 
gramm an einen dritten oder vier- 
ten weiter zu verkaufen, bringt 
das ebenfalls Ärger mit sich. Also 
lieber immer erst einmal fragen. 
Sicher ist sicher. 


Reh 


Lieber Tronic-Verlag, 


..- Warum dauert es immer solan- 
ge, bis man eine Antwort erhält, 
ob das entsprechende Spiel ange- 


nommen oder nicht angenom- 
men wird. { Mein Bruder mußte 
fast drei Monate auf Antwort 
warten und diese kam auch erst 
nach Anfrage - Brief.} Ich wäre 
froh, wenn Sie diese Frage beant- 
worten würden. Danke!!! ... 
Rauft, Münster 


Hier die Antwort auf die be- 
rechtigte Nachfrage: 

Sie können grundsätzlich davon 
ausgehen, daß wir Programme, arı 
denen wir nicht interessiert sind 
sofort zurückschicken. Ist ja auch 
verständlich, da es nur totes Mate- 
rıal für uns wäre, welches sich in 
unseren Regalen stapelt. Ist Ihr 
Programm interessant für unsere 
Zeitschrift, kann es schon. ein 
Weilchen dauern, bis es veröftent- 
licht wird. Dafür gibt es mehrere 
Gründe . Zwei Monate müs- 
sen Sie auf alle Fälle rechnen, 
denn wenn Sie die neuste Ausga- 
be in die Hand bekommen und 
ein Programm zu uns schicken, 
haben wir natürlich schon die 
Programmauswahl für die näch- 
ste Ausgabe getroffen, so daß Sie 





frühestens in der übernächsten 
Ausgabe Ihr Programm in der 
Zeitschrift veröffentlicht sehen 
können. Wie gesagt frühestens. 
Denn in unseren Regalen liegt 
nicht nur ein Programm, das dar- 
auf wartet abgedruckt zu werden. 
Aus der Masse der Programme 
missen wir dann auch noch ge- 
zielt auswählen, nach Qualität, 
nach System und ob ein Spielpro- 
gramm oder Anwenderpro- 
gramm benötigt wird. Bei der 
Masse der Programm ist natürlich 
das entscheidene Kriterium die 
Qualicät. Um so besser ein Pro- 
gramm ist, desto eher wird es ver- 
öffentlicht. Aus diesen Gründen 
kann es sogar durchaus vorkom- 
merı, daß es gar sechs Monate dau- 
ert, bis das Programm abgedruckt 
wird. Es ist also immer als ein gu- 
tes Zeichen zu werten, wenn Sie 
Ihr Programm nicht sofort zu- 
rück geschickt bekommen. 
Damit hoffen wir Ihre Frage, die 
wir nicht zum ersten Mal ver- 
nommen haben, ausreichend be- 
antwortet zu haben und warten 
auf weitere gute Programme von 
Ihnen. 





Korrektur des Datasetteninterfaces: 








Hier das Sckaltbild der lauffühigen Version (demnächst im Hardware-Service) 
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Wealf-Pieter Herer, 
Bischrisgasse 9, T.E910ty 
6940 Weinheim 
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WERNER - WAS SONST! 


Den allermeisten Lesern wird die 
Person ”Werner” wohlbekannt 
sein, auch wenn Werner bisher 
nichts mit "Kombjudern”zu tun 
hatte. Die Comicbücher von 
Werner Brösel haben mittlerweile 
eine derartige Verbreitung gefun- 
den, daß eine Computerrealisa- 
tion eigentlich nur eine Frage der 
Zeit sein konnt. Viele 
Computer-Freaks haben sicher 
schon eine ganze Zeit auf ein 
Wernerspiel gewartet. Wer jerzt 
das Spiel in die Finger bekommt, 
wird feststellen, daß es sich ge- 
Ichnt hat zu warten, Auch in un- 
serem Redaktionskreis gab es seit 
Monaten schon kein interessante- 
res Thema, als das Spitzenpro- 
gramm Werner, Kein Wunder: 
Wir haben immerhin Werner von 
kleinauf kennengelernt. Mit je- 
dem neu programmierten Teil 
wuchs unsere Sympathie für die- 
ses Spiel und deren Hauptfigur. 
Aus diesem Grunde freuen wir 
uns schon jetzt mit unseren Le- 
sern über dieses deutsche Toppro- 
gramm, weil wir schon seit lan- 
gem wissen, was Sie erwartet, 


Es war schon bemerkenswert, 
wie viele Ideen zu diesem Spiel 
vorhanden waren. Geradszu 
grandios war es dann, wie diese 
ideen zum Großteil umgesetzt 
wurden. Entscheidenen Anteil an 
der hervorragenden Gestaltung 
hatte vor allem der Autor Werner 
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Brösel selbst. Wenn es nach sei- 
nen Ideen gegangen wäre, würde 
ein ganzer Zeichentrick-Film 
über den Bildschirm laufen. Doch 
er hat es akzeptieren müssen, das 
ein Computer nur begrenzte 
Möglichkeiten hat. Die wurden 
allerdings bis auf das äußerste aus- 
geschöpft, dank der tollen Zusam- 
menarbeit von Autor und Pro- 
grammierern. Gerade die Tea- 
marbeit hat das Programm zu 
dem gemacht, was es heute ist: 
Ein echtes Spitzenspiel! Überzeu- 
gen können Sie sich bald selbst da- 
von. Dann werden Sie auch ver- 
stehen, daß uns in der Zeitschrift 
"aktueller software Markt 
(ASM)” kein Platz zu schade war, 
dieses Spiel und deren . Veran- 
twortlichen von allen Seiten zu 
belichten. Auch dabei war eine 
gute Zusammenarbeit Grundvo- 
rausserzung. Durch die Mithilfe 
von mMicro-partner war es uns 
möglich, einen frühest möglichen 
Spielbericht zu verfassen, der alle 
Computer-Freaks richtig heiß auf 
die Neuheit gemacht hat. Später 
dachten wir uns, Ihnen einmal die 
Verantwortlichen von micro- 
partner vorstellen zu müssen, um 
das Umfeld von so einem Pro- 
gramm darzustellen. Wer das 
überhaupt ist, der so etwas produ- 
ziert und auf den Markı bringt. 
All das, was wir in dem Bereich 
kennengelernt haben, ist kein 
Wissen, das wir für uns behalten 
wollen. Uns legt einfach daran, 
alles was wir gesehen, gehört oder 


gerochen haben weiter zu vermit- 
teln. Ja, auch gerochen. Denn es 
gehört wohl auch der richtige 
Riecher dazu, ausgerechnet bei 
der Produktion von so einem gu- 
ten Spiel dabei zu sein. 

Die Vollendung um dieses Pro- 
jekt kommt allerdings noch. Um 
den Kreis zu schließen, fehlte uns 
nur noch das Statement des Au- 
tors selbst. Denn ohne seine Kult- 
figur Werner, wäre es wohl nie zu 
diesem Spiel gekommen. Sie wer- 
den es kaum glauben, aber wir ha- 
ben es tatsächlich geschafft mit 
Roetger Feldmann, alias Werner 
Brösel, das Interview zu führen, 
und somit das i-Tüpfelchen zu ser- 
zen. In der kommenden ASM- 
Ausgabe können Sie ausführlich 
nachlesen, was bei einem locke- 
ren Gespräch in der Regenera- 
tionsphase rum kam. Freuen Sie 
sich also schon jetzt auf die näch- 
ste Jet-Set-Ecke in der ASM. 

Das überwältigende an diesem 
Einblick, den wir Ihnen damit ge- 


Compube mik 


währen wollten ist: Auf Sie kom- 
men viele, viele Preise zu, die Sie 
in einem kleinen Wettbewerb ge- 
winnen können. Was wollen Sie 
also mehr? 

Das Programm »Werner« ist nur 
ein Beispiel von vielen, wo wir 
diese oder ähnliche Vorgehens- 
weisen praktizieren. Sofern es die 
Programmierer nicht stört, wer- 
den wir Ihnen auch weiterhin 
über die Schultern schauen, damit 
unsere Leser vor Ort die neusten 
Informationen erhalten. Dadurch 
vermeiden wir auch Fehler, wie 
sie bei manch anderer Zeitschrift 
auftreten, z.b. daß ein Spiel ange- 
kündigt wird, welches nie existie- 
ren wird. Den Freaks eine gewisse 
Vorfreude zu entlocken ist doch 
legitim! 





Das aktuelle Interview erscheint 
in »Aktueller Software Markt« 
am 18.11.86! 
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Ein kleiner Krebskoch in Not. 
Helfen Sie Cooky die Krebse wie 
der einzufangen die ihm wegge- 
krabbelt sind. Aber aufgepalit; 
das ist gar nicht so leicht!!! Denn 
Cooky möchte die Krebse ja alle 
in den Topf stecken ( Angezeigt 
durch eine zusätzliche Dampf- 
wolke über dem Topf ). 


Die Krebse versuchen Cooky in 
die Hand zwicken und das tur 
weh. Die Folge: Cooky läuft in 
verschiedenen Farben an vor 
Schmerz; und zu allem Übel 
spielt auch noch die Melodie: 
"Freude schöner Götterfunken’. 
Wenn das passiert ist das Spiel zu 
Ende. Also aufgepaßt! Dem kleı- 
nen Koch muß man allerdings 
auch den nötigen Respekt zollen. 








Cooky ist wirklich intelligent! Er 
merkt es, wenn Sie ihn sein Netz 
auf den leeren Boden werfen las- 
sen. Dann fängt er nämlich fürch- 


terlich an zu schimpfen und‘ 


schaut sie mißmutig an. Hinzu 
kommt, daß unser Freund ver- 
dammt schnell ungeduldig wird. 
Wenn er einen Krebs gefangen 
hat, ermuntert er einen so schnell 
wie möglich den nächsten eınzu- 
fangen. Natürlich schimpft er 
auch, wenn Sie ihn gegen die 
Wand laufen lassen oder gar ein- 
fach stehen lassen. 


Ein kleiner Tip noch: Der kleine 
Krebskoch wird von Krebs zu 
Krebs schwieriger. Bleibt mir 
zum Schluß nur noch Ihnen viel 
Glück zu wünschen im Kampf 
mit den Krebsen. 
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Ich wußte leider nicht mehr weiter, Seit dem Cooky die Krebse davon gelaufen sind, ernährt er sich nur 
noch vegetarisch! 





VCZO LISTINGS + EHECKSUMMEN {V V1.0) 


5 REM COOKY 1 <39> 
10 DATAO, 224,227 ,67,68,69,68, 79,78 <i> 

11 DATA1,0,28,60,59,63,29,24,60 <b3> 
12 DATA2,0,56,120,119,126,60,24,60 <19> 
13 DATAT, 176,219, 189,60,102,119,0,0 <50> 
13 DATA4,62,59,57,24,24 ,28,0,0 «1333 
15 DATAS,0,0,0,102,255,255,60,50 <138> 
16 DATA&,0,56,120,118,126,61,27,62 <193> 
17 DATA?,50,56,56,24,24,28,0,0 <97> 

18 DATAB,0,56,60,220,252,120,55,128 <169> 
17 DATAF,0,28,30,110,126,60,24,560 <96> 

20 DATA10,126,219,189,60,107,238,0,0 <32> 

21 DATA11,124,220,156,24,24,56,0,0 <99> 

22 DATR12,0,60,219,255,56,102,60,24 <220> 
23 DATAL3,0,28,30,110,126,188,216,124 <7> 

24 DATALA „60,28,28,24,24,56,0,0 <45> 
25 DATAIS,0,60,219,255,126,102,60,24 <113> 
26 DAtA16,60,17&,1897,36,36,102,0,0 <148> 
27 DATA17,0,60,219,255,66,102,60,153 . <255> 
28 DATA18,187,176,60,36,36,102,0,0 <79> 

29 DATA17,66,36,24,153,126,24,60,66 <180> 
=0 DATA20,0,102,24,126,153,60,566,0 <251> 
&1 DAtA21,17,27,91,85,217,166,78,0 <185> 
32 DATA22,0,28,166,217,85,41,22,12 <80> 

32 DATA22,49, 104,148, 170,155,101,36,0 <99> 

34 DATA24,0,56,101,155,170,148, 104,48 <106* 
35 DATA25,0,0,128,200,120,48,104,148 <177> 
36 DATN26,0,0,1,19,30,12,22,41 <234> 
37 DATAZ7,24,102,255,126,176,126,126,60 <138> 
58 DATA28,0,60,39,37 ,37,36,60,24 <«125> 
37 DATAZ9,51,102,102,102,102,102,102,51 «2253 
40 DATN30,2755,255,64,95,81,85,81,795 <124> 
at DATA31,255,255,0,255,17,85,17,255 <46> 

42 DATA32,0,0,0,.0,0,0,0,0 <201> 
43 DATASS,72,72,72,72,104,108,108,10B <51> 

44 DATAZ4,0,0,0,40,174,252,1720,48 €152> 
35 DATA3S,0,0,0,0,0,179,7255,12& 21655 
46 <117> 


DATRS6,95,80,80,84,84,80, 127,96 


GSompute mib 


47 DATAS7,255,65,65,69,69,65,255,0 <37> 
46 DATNSB,78,78,78,78,78,68,192,192 <30> 
49 DATASY,107,97,0,0,0,0,0,0 <64> 
SO DATA40,255,255,128,128,128,128,128,128 <141> 
51 DATA41,255,255,2,2,2,2,2,2 <59> 
52 DATA42,62,126,96,96,96,76,126,62 <119> 
53 DATA43,60,126,195,195,195,175,126,60 <103> 
54 DATA44,124,126,102,126,124 ,96,96,95 298> 
55 DATAS5,0,0,0,0,0,0,96,76 <196> 
SA DATNA6,14,30,54,38,6,6,8,15 <80> 
57 DATA47,60,126,102,126,62,6,126,60 <212> 
50 DATASE,60,126,102,60,60,102,12&,60 <9> 
&1 DATASI,52,62,48,50,62,6,62,60 <B3> 
62 DATA60,62,126,75,1243,62,5,126,124 <BB> 
63 DATA61,176,126,96,120,120,96,96,9& £37> 
64 DATA&2,126,126,24,24,24,24,24,28 <197> 
85 DATA63,3,126,254,192,54,54,115,97 <130> 
70 DATAA8,0,0,6,103,255,252,28,28 <198> 
71 DATA49,0,0,96,230,255,63,56,56 <94> 
72 BATASO,0,0,12,24,0,0,0,0 <218> 
73 DATAS1,0,12,30,62,56,0,0,0 <22> 
74 DATA52,0,12,62,52,124,650,0,0 <166> 
93 DAara-1 <211> 
100 FOKES2, ZB: POKES6, 28: POKESS „O: POKES1,0rFELR=PR 

INT" TELEAR?" <144> 
110 READA: IFA=-1THENISO <71> 
120 B=71204Ar9: FORIT=BTOB+7:REABCHPOKEI „EC: NEXT <202> 
150 8010119 <192> 
150 FORI=7120107120+34: READJSPOKET „J:NEXT <85> 
160 POKE631,131:POKE1FB,1 <197> 
170 DATA169,127,141,34,145, 1735,32,145,91, 128,133 
„251,169, 255,141,34 <103> 
180 DATA145,173,31,145,41,28,24,101,251,133,251, 
173,21,145,41,32 <228> 
170 DATAL33,252,96 <43> 


ENDE BES LISTINGS 





VC2O LISTING + CHECKSUMMEN (v Vi .0) 


10 POFES2,28: POKES6 28: POKES1 „0: FOKESS,0: POKE358 


. 108 


1186 


69 ‚255: POKE3648977,B 


28 SH 
107 FRINT"ERVSOH RIGHTZ2 SH SPACEIS 5H 





F"sNEXT 

110 PRINT"TRVSEN RIGHTZ SL Cal 5% 

111 PRINT"IRFSOEN RIGHTZ SN SPACEIE SM 

112 PRINT”{RVSON RIGHT SH SPACEISE SH 

120 PRINT"CHOME DOHMIS RIGHTSY"_BASSPACEFHIDOHN 
LEFTSISEART OU) 



































1Z1 PRINT"IHONE DORNS, RIGHT12 RVSOH CA S# CR S«* 
c5 > 

122 PRINT"CHOHE DOHNZ RIGHTI2 RVSON S- SPACE S- 

SPACE S- 

123 PRINT" {HOME DOWNG RIGHTI2 RYSON S- SPACE ca 

SPACE S- 

124 PRINT"CHOHE DOWN? RIGHTI2 RUSON S- SPACE S- 

SPACE S- 

125 PRINT" CHOHE DOWNIO RIGHTIZ RVSOH CZ S# CE S= 
cx 

130 PRINT"{HGHE DPOHNIS RIGHTSIT _SIDOHN LEFTIIEHL 
140 PRINT"{HOHE BOWMIS RIGHT13F”_BIDOHN LEFTIIEN 
% 

150 PRINT" IHOHE DOWNIZ RIGHT13?”_@{BOHN LEFT3>S% 
% 

160 POKEBO4? ‚27: POKE38769 ‚5: POKE79749 , 2B:PDKE7YSO 


‚27: POKESB464, 3:3 FOKRE39A70,& 

179 POKE7FO0S5 ,29:PDKE7908 ,29: FOKE795B,34 

186 PRINT" {HÖHE CYAN DOHN4 RIGHT4I%#+,.—. iz 

170 PRINT"CHOHE BOHNS RIGHTSI-FISPACEI—<+=> 

260 PRINT"CHOHE DOHN4 RIGHTIT RVSON CYANFC{DOHN2 
LEFTIDEBOUNZ LEFTIOTDOHNZ LEFTIKEIDOHN2 LEFTIY 

300 F=80897:60=30720:J=7120: IF=252: JA=251:5=1:T=4;3 
X=1: Y=O:R=85 T=3: U=r10:0=19: F=0: Z=2: V=2 

315 FOKEBO2O , 27: POKE?7978 ,50: POKE7I74,51: POKE7I54 
‚32: POKESOL1Y+307 20 , 2: POKEOO204+30770,5 

320 K=0: JK=165: T1=368974: T2=368 75: T3=I4R7 63 T4=3687 
7:6=49: H=49: 5X=0: XC=8019: BN=O 

>21 POKES5878,15:POKE7908,725 

325 PRINT"CHOHE RIGHTI SPACETF" 

350 PRINT"T{HOBE HHITE RIGHTSI<H{RFSONI"K 

3353 PRINT"IHDHE DOWNZ RIGHT4 RYSOH GREENIHITYELL 

DH>"SC 

400 POKEP+C,2:POKEP 15: PDKEP+2? ‚15: FÜKEP-22,5 

410 FOKEXC,S32 

509 SYSJ:SX=6X+1: IFSX=19THENPOKEP, 17: POKEP+22,18 
: FOXE7932,52 B 

sıc IFPEEK ( IF} C>S2THEN?0O 

514 IFSX=ZTHENPRINT"CHOHE RYSOH DOWNIS RIGHTZ Cr 

ANZ HEYLSPACEI-{RIGHTSIPLEASE 

515 IFSX#=F#THENGOSUBSO000: POKEP-22,5:PRINT"LHE RIG 

HT3 RVSON CYANYPRESS{RIGHTSIBUTTON 

520 IFSX=ZOTHENPOKEP , 15: POKEP+22, 16: POKE7932,32 

525 IFSX=BOTHENAGOB 

525 GOSUB?I0O 

327 IFSX>30THENGDSUBSOAG 

528 IFSX=50THENGOSURSOOO 

327 IFSX=40THENGOSUB4000 

5309 GOTOS00 

700 SYEJ:85X=-0:K=0 


705 PRINT"{HOSE DOHNIS RIGHTZ SPACES RIGHTS SPAC 
Es}" 

705 
707 
719 






































FRINT"CDOHN RIGHTS SPAGELI}" 
FRINT"iAONE HHITE RIGHT4 RVSOFFISHECRFSON"K 
BOSUB2000: POKET1,135 

720 FORI=0T02004 NEXT:POKET1,0 

730 GOSURS040:5Y5J: FOKE7TOB,I2 

1000 BW=PEEK{JAI:SYSI:BN=BN+1:FG=0:POKEP+C 2: IFF 
>IK- 1 THENGOSURZO00:FG=1: BOSUBA4500 

1010 IFBW=140THEND=-1: X=1: Y=0:50701350 

1020 IFBW=2BTHEND=1:Y=1:X=0:G0T01060 

1030 IFPEEK IF) < >SZANDY= LTHENGOSURA000 

1035 IFPEEK(IFI<CISZANDK=1 THENGOSUBS000 

1040 GOSUR2000 

1045 S0SUBS040 

1044 IFBN=STHENFOKE7F32,52 

1047 TERN>STHENBN=O 

1050 D=0: FOARI=OT0835: NEXT+GOTOLOOO 

1050 9=5+1: IFS>2THENS=1 

i0651 6=6+1: IFG>49 THENG=48B 

10542 POKETS, 130: POKET2,135 

1063 T=T+1: IFT>4THENT=3 

1064 POKET2,0: POKETZ,O 

1056 IFP+D>BO9STHEND=O: VeS: GOSUB4SOO 








<250> 


<33> 


<211> 


2323 


<82> 

<208> 
<178> 
x213> 


<234> 
<208> 
2177> 
<110> 
<197B> 


<&61> 
<244> 


s167> 
<176> 


<84> 
<lo2> 
<232> 
<B> 


<198> 
<25> 
<181> 


<241> 
“135> 
<171> 
<B4> 


<189> 
<18> 
<«134> 


<2357 
<23> 


<170> 


<235> 
<154> 
<129> 
<bB> 
<95> 
<49> 
x63> 
x87 5 
<F74> 


<246> 
x235> 
<15B> 
<128> 
<234> 
<121> 


<221> 
<153> 
<253> 
<95> 
«715 
<b9> 
“F76> 
“73> 
<a3> 
<1997> 
<44> 
<ı8> 
<a0> 
<119> 
<B1> 
<154> 


programme 


1047 
1068 
19597 
1970 
1350 
1351 
1332 
1355 
1355 
1357 
1338 
1357 


FD=PEEK (P+D+22) 4 IFPD=1FDRFD=20THENGOOO 
IFBN=STHENPOKE7932 ,5? 

IFBNFSTHENBN=0 

GOTOI5O0O 

R=R+t3 IFR>FTHENR=B 

H=H+t 5 IFH>49THENH=48 

POIKET3Z,130: POKET2, 135 

U=U+1: IFUFL1THENU=10 

IFF+DK SO7STHEND=0: Z=5: GOSUBA4500 
POKETS,O:FOKET2,O 

IFBN=STHENFOKE7I32,52Z 

IFRN>-STHENRN=O 

31360 PD=FEER (P+D+22} 3 IFPD=1FORPD=20THENAOCO 

14006 F=P+D: POKEP ,R:ıPGKEP+22,U: FOKEF-22,H:POKEP+C 
‚2: IFDS >OTHENPOKEP-D , 32: FOKEF-D-22,32 

14053 FOKEP+22Z+C,1 

3410 IFD< >OTHENPOKEP-D+22,32 

1490 GOSUB2O00 

1490 B=0: Z=2: 60701000 

1500 P=F+D: POKEP ‚5: POKEP+22,T:POKEP-22 ,G=:POKEP+U 
„Va IFD<S >OTHENPOKEP-D , 52: FOKEF+ZZ-D „325 POKEP-D-22 
‚32 
1505 
1390 
1600 


POKEF+2I+C,1 
GOSUB2000 

D=0: V#2: 80T01000 

2000 F=F+1: IFF<ZTHEN2004 

2001 FOKE79F32,32: IFF=JK-STHENPOKEHJ , S2:H3=HJ-DeP 
BKEHJ+E „2: PH=PEEK (HJ) E GOTOZOL1O 

2002 IFFSIKTHENZ2100 

2003 SOT02020 

2004 HJ=8078: B=INT{RNDCLI#1B) +1: HI=HI+B: PH=PEEK ( 
HJ} =POKETZ, 180 

2005 IFF>JK+1THENF=2 

2006 POKETS,0:POKEHJ+T,2 


2010 IFPH=SORPH=40RPH=1 00 RFH=1 1 THENPOKEHJ+T , 1:GD 
TO 2004 
2015 IFPH=1&0RFH=18BTHENPOKEHJ+C,1:60707004 


20209 
2030 
zos1 

2032 
2033 
2034 
2035 
2035 
2037 
2038 
2037 
2050 


Q=G+1: FFO>FOTHENG=1F 
FOKEHJ „Or IFKFOTHENFOKEXE „A 
IFKFLOTHENJK=14 
IFK>ZOTHENIK=13 
IFE>SOTHENIK=12 
IFK>40THENIE=L1 
IFK>SOTHENJE=1O 
IFE>1OOTHENJIK=ST 
IFK>ISOTHENIK=B 
IFE>ZOOTHENIK=7 
IFEF>SOOTHENIK=& 


RETURN 

2100 POKEHI „32: FOKEHJ+C,L:F=1: 60702004 

3000 POKEP-22, 49: POKEP-1, 23: POKEP-1+30720, 1:POKE 
P,13=POKEP+22, 14: FORI=OTN 100: NEXT:PFOKEP-1,32 
3010 FOKEP,S:POKEP+27,11:POKEP-22,4%: POKEFFS2,52 
3020 IFPEEK (P+B+21)=1FDRPEEK (P+D+21) =20THENFOKEP 
+21 B„Z6:K=K#l:F=0: PRINT" {HOHE HHITE RYSBFE RICHT@ 


SERLAFSONI "EI :GOTOFSOSS 


2030 FOKEP+21 ,74:F=1:POKEF+Z1+C, 1:GOT03040 

3039 FORI=140T02105TEP&: POKET2, I-10:POKET3, I+15: 
POKET4,1=NEXT:POKETZ, 0: POKETZ,O:POKETZ,0 

3055 FORI=OTOS0: NEXT: FOKEPR+21 , 37: FORI=0TO100:NEX 
Tr POKRET4 ,0: GOSLB2000:F=0 

3037 GOTOIOAL 

3040 POKET4 ‚140: FORI=0T0150:NEXT:FOKEP+21 „52: FOR 
I=0T0100: NEXT: POKET4 ,0:F=3: 505UB2000 

3041 IFF>1THENGOSUB4SOO 

3042 IFF=O0THENSGSUBS00O 

30459 IFK>SCTHENSC=K 

5050 RETURN 

4000 POEEP-22,49: POKEP+1 ,21: POKEP+1+30770, 1:FDKE 
P,6:POKEF#+22, 75; FÜRI=SOTO10G:NEXT:PDKEP+A „32 

A010 POKER, 1:POKEP+22 „4: POKEP-22, 48: POKE?932,52 
4020 IFFEEK {P+D+23) =190RPEEK (P+D+23) =20 THENPIKEP 
+23, 25:K=k+l:F=07PRINT"CHOME HHITE RIGHTS RVSOFF 
I<H{RVSON3"kKz 2 BOTOAOSS 

4930 FOKEP+23,22:F=1:POKEP+2S+C , 1: GOT04040 

4035 FORI=140T0210STEP&:PFOKET2, I-10:POKETS,I+15: 
FOKET4,1:NEXT= PÜOKET2,0: POKETS3,0:FOKET4,0 

4036 FORI=0TG150:NEXT=POKEP+23,,373 FORI=OTO1OG:NE 
AT: EBSURPO09:F=0 

40537 GOTO4941 

4040 POKET# 140: FORI=OTO150: NEXT: POKEP+23 ,32: FÜR 
I1-0T9100:NEXTrPOKET4 ,0:F=I: GOSUR2000 

4041 IFF>LTHENGOSUB4500 

4042 IFF=OCTHENGOSUBS009 

4043 F=1 

4045 IFK>SCTHENSCEK 


Compute mib 


<12> 
<95> 
c65> 
<108> 
<223> 
<78> 
x759> 
<116> 
<14> 
«1135> 
<130> 
<100> 
xS50> 


<197> 
<99> 
<B2> 
«2545 
<142> 


<175> 
<1F7> 
<10%7> 
2332 
“a4l> 


<23B> 
<2> 
<i5> 


<10> 
<192> 
<205> 


<108> 
<156> 
<58> 

S22r4> 
<142> 


X136> 


<130> 
<124> 
<118> 
“228> 
<235> 
222> 
s224> 


<1S7> 
<158> 


<B8> 
<203> 


<142> 
<42> 


<15> 


<243> 
<44> 


1163 
g13> 
«23503 
2942 
s131> 


<5B> 
<A5> 


<233> 
«775 


«252> 


<148> 
“267 


<144> 
<251> 
<218> 
<23> 
<34> 


13 


14 


programme 


A050 RETURN 

4500 POKEP+22+C ,1:6=46: FORA=OTO3: G=>G+1: IFG>49THE 
N5=48: POREP, 15; FOREP+22 , 15: POKEP+D , 4 

4510 POKETI,130: POKETZ, 140: FORI=0T0100: POKET1 ,0: 
FORET2,O 

4520 PGKEP , 17: FOKEP+Z2, 18: FOKEP-22,6 

4530 POKETS,1357FORI=0T0100: NEXT:POKETS,O:NEXT:P 
OKEP+C,2 

540 IFFG=1THENRETURN 

4540 GOTO5CAG 

SO00 FORA=OTUM: POKEP „15: FOREP+22, 168: POKEP-22,53P 
GREP+22+0,1:F=1 " 

5610 POKEFI,130:POKET2,140:FORI=OTG100: POKETI ,Or 
POKETZ,O 

5020 POKEP,17:FOKEP+22,19 

5030 POKET3,135: FORI=GTOLOO:NEKT:POKET3,05 NEXT 
5040 IFHJ<P+22THENFOKEF „B: PEKEP+ZR, 11: PDKEP-22,4 
9416=43B:H=4B: 5=1:R=9: X=1: Y=0: 50T05059 

5041 PDKEP+224+C,1 

5045 IFHI>P+22THENPOKEPF , I: POKEP+22, 4: PIKEP-22,48 
1G=47: H=49: 5=2: R=B: Y=lı X=0: GOTBSOSO 

5046 BOTOSOAO 

5050 SYSJıFOKEP+22+C,1: RETURN 

[-[olele) POKEP, 153 TY=F+D: FOKETY „4: POKEHJ „19: PDKEHJ,2 
0: POKEHJ „19: POKEHJ „20: FOKEP-22,48 

KOO2 IFHI<F+Z2THENPOKEP+22, 11 

6003 POKEP-22,5:PRINT"CHOHE RYSON DOWN2O RIGHTS 
YELLOKIGAME TSPACEI- TSPACEIDVER 

6004 IFHI>P+Z2ZTHENPRKEP+22,4 

6005 FOKET4,178:FERI=0T0350: NEXT: FOKET4 ,0:POREXT 
,32:XC=B126 

6005 FORI=O0TUFOO:NEXT 

6007 GRTOA0O1O 

5008 POKEP+22,16: TY=P+t1+E 

6010 FOKESAB7B, 63 FORF=0TO1:FOKET1,230: POKET2,230 
ıFOKETS,230rFORI=0T0300: NEXT 

&011 POKET1,O2POKET2,O:POKET3,0: NEXT:POKETY,S5:PO 
KEP , 12: POKEHJ „19: POKEP-22,49: POKEXC, 17 

6013 POKE?7F98 ,32:POKE7F7&, 32: POKE7954 ,32 

6014 POKET1,231:POKET2,231:FOKETS,231:1 FORI=OTO3SO 











GAM- 
BOL 


In diesem Spiel geht es darum, mit 
dem lustig hüpfenden ’Gam- 
bol’möglichst viele Labyrinthe zu 
schaffen. Die Labyrinthe haben 
die Form von übergroßen dreidi- 
mensionalen Buchstaben. Gam- 
bol muß nun versuchen, alle 
Energiekontainer zu bekommen, 
um in das nächste Labyrinth zu 
gelangen. Leider werdendie Ener- 
giekontainer von Monstern be- 
wacht. Um die Monster zu über- 
winden, gibt es aber noch ein 
Hilfsmittel: In den Wänden der 
Labyrinthe sind Felsen, gestützt 


<111> 
<14> 


<35> 
2121> 


1617 
“hr 


 Aabr 


«202> 


“2a 
2305 
A234> 


<177> 
<165> 


L27r 
s12> 
<i> 


<X209> 
<32> 


<B0> 
<P7 


“11> 
<2309> 
<199> 
“ra 


<249> 


<117> 
<192> 


G: NEXT: POKEHJ „20: POKEXC „20 \ 
5015 POKET1 ,OrPOKETZ,03 POKETZ,O:POKETY,2: POKEP,1 
5; POKEHT, 17: POKEP-22,48: PÜKEXC, 19 
8016 FORE-0T01:POKET1 ,234: POKET2, 234: POKETF,234: 
FORI=0TU320: NEXT 
6017 PORETL,O:POKET2,0: POKET3,O=NEXTZPOKETY,SSPO 
KEP, 12: POKENJ , 20: POKEXC „20 
6018 POKETI ,231:POKET2,231:POKETS,231: FORI=OTO40 
0: NEXT: POKEHJ , 19: POKEF-22, 39: POKEXO, 19 
&013 FÜKET1,0:POKET2,0:PDKET3,0 
6020 FOKET1 230: POKET?,230: POKET3,230:FORI=0TG40 
0: NEXT: POKEHI , 20: POKEXC „20 
8021 POKETI,0:POKETZ,O:POKET3,0:POKETY,Z2:PDKEP,1 
5: POKEHF, 19: PIKEP-27 ‚49: PIKEXC,20 
6022 POKET1 ‚227: POKET2,227: POKET3, 227: FORI=0T030 
0: NEXT: POKENJ „20: FOKEXC,20 
6023 FOKET1,0:FOKET2,07POKETZ,0: POKETY „4zPOKEP,1 
2: POFEHJ , 19: POKER-2Z2,49, POKEXC,, 197 
6074. FORE=OTO1: FOKETI ‚223: PÜKET2,223: POKET3,223: 
FORI=0TOZ00: NEXT 
6025 FOKET1,0:POKETZ,0:POKET3,O:NEXT=POKETY ,S:PO 
KEP,15: POKEHJ „20: POKEP-22 ‚48: PDKEXG,20 . 
6026 PGKET1 277: POKET2 ,2274 POKET3, 227: FORI=SOTOS0 
O:NEXT 
6027 POKET1 ,0:POKET2,0: POKETZ,OrPOKETY,Z2:POKEP,1 
2: POKEHJ, 19: POKEP-22, 49: FOKEXC, 17 
6028 FORE=0T01:FOKET1,230:2 POKET2 230: PIKETZ,, 2305 
FORI=0T9300: NEXT 
68029 POKETI ,O:PGKET2,0:POKET3,O:NEXT:POKEP,15:Pü 
KEHI, 20: PÜKEP-22 „AB: POKEXC „20 
&030 FORE=OTEN:POKET1,227: POKET2,227: POKET3,227: 
FORI=OTOZ&O:NEXT 
6034 FOKET1 ,O:POKET2,0:POKETZ,O:NEXT=POKEHJ,1F:P 
OKEP-22 ,49: POKEXC, 17 
6050 IFSX=BOTHENSOO 
6105 PRINT" {RIGHT SPACE20}" 
&10B PRINT" {SPACE22}" 
6110 GOTG30O 

ENDE DES LISTINGS 

[DRUCK:F.B. 70.8.1 








CSompuhe mib 


<78> 

<254> 
<245> 
<250> 


“120> 
<135> 


<65> 
<aQ> 
<a> 
<10> 
<40> 
<207> 
<154> 
<224> 
«173> 
<0> 
<34> 
<145> 
<171> 
<«143> 
<20> 


<ub> 
«323 


1186 





auf den Ständern. Schiebt Gam- 
bol nun einen Ständer unter ei- 
nem Felsen. weg, so fällt der Fel- 


sen hinunter - und wenn Gambol. 


Glück hat, auf ein Monster. Die 
Felsen lassen sich noch auf dem 
Boden verschieben. ebenfalls las- 


man auch Monster damit blockie- 
ren kann. 


Wenn Gambol die Labyrinche 
von A-Z geschafft har, so beginnt 
er wieder bei A, allerdings mit ei- 
ner Schwierigkeitssteigerung: Die 


Programme 


SO READB: IFR>-1THENPOKEA „BeA=At1:60T050 


60 DATA15?,0,169,0,157,0,30, 157 ,0,31,167,6, 157,0, 


„150,157,0,151,202,208,237,96 
70 DATA1652,0,189,21,31,201,32,240,3,76,127,27,16 
7,4,157,0,151,232,208,238 

80 DATA162,0,189,21,30,201,32,230,3,76,147,27,1& 
7,4,157,0,150,207,208,238 

197 DATAFS,-t 

200 FOFELIB,1-PORFEAS1,131 


I2> 

<102> 
«1405 
<231> 


<21> 
<209> 


Fälsen lassen sich nicht mehr auf 
dem Boden bewegen. 


sen sich die Ständer durch den ge- 


ENDE DES LISTINGS 
samten Raum schieben, so daß EEE " 





VERO LISTENG + CHECKSUMMEN {V V1.0) 




































































DM PRINT"IGLEAR BLUE SPACEFHTEILTSPACEHT <BB> 
1 PRINT"ESPACET CYe HHITE}" “778 
10 FORA=5873T06986 : READE: POKER ,BıNEXTı FORA=57107 
VEZO LISTING + CHECKSUMMEN {Y V1.0) U6812:READB:POKEA,BENEXT <2ät> 
20 DATA152,0,189 ,255,30,701,72,230,2,76,26,27 e1@t> 
C REMeemERKen ern en «1157 |) 32 DATA189,0,31,201 ,37,240,3,76,21,27,169,32,157 
1 REM« SAMBOL * “205> +259,30,169,2,157,0,31,169,7,157,0,151 <7> 
2 REM#« Se=oo= * LEO: IT DATA7T&E,26,27 205 > 
3 REM#* (C} 1986 * “545 34 DATA1L59,3,157,255,30 <I3> 
A REM® BY * “227> | 40 DATA1B9,0,30,201 ,2,240,3,76,67,27 <107> 
5 REMk HEINZ KROOS = <70> 42 DATA199 ,1,30,201,32,240,3,76,64,27,169,32,157 
& REM#* NEUE REIHE 76 * <78> ,0,30,169,2,157,1,30,169,7,157,1,150 <i42> 
TREM« 47975 BOKE * dar 43 DATA76,69,27 “1332 
EB REM#NKU. W.-GERMANY« <at> 44 DATA159,3,1597,0,30 £94> 
7 REM z124> 50 DATAZO2,2089,167,75,54,26 “Fi7> 
106 PRINT" TCLEARF"CHRS CLAZICHRE (U) : FOKESGBTF 232: ‚60 DATA1I42,0,189,0,31,201,3,240,3,76,99, 26 <BS> 
PRENT"{SPACE SU S#18 51 “24573 | 62 DATALBF,255,30,201,32,240,3,76,89,26,159,32,1 
11 FRINT" {SPACE S- SPACEIS S-. <247> | 57,0,31,169,3,157,255,30 <190> 
IZ PRINT" ISPACE 5- SPACESIGÄMBOL{SPACE? S-}"=PRI 63 DATA7&E,99,26 <159> 
NT"ISPACE S- SPACEIB S- <120> | 64 DATA1L67,7,157,0,31,169,7,157,0,151 <> 
13 PRINT"ISPACE S- SPACEIS S- <250> | 70 DATA189,1,30,201,3,240,3,76,142,2& <i21> 
15 PRINT" {SPACE S- SPACEIS S- “251° | 72 DATA1B7,0,70,201,32,240,3,76,132,26,167,32,15 
i1& PRINT"ISPAGE S-, SPACE4F (CI TSPÄACEI LFBSTSPACES 7,1,30,169,3,157,0,20 <121> 
Ss- <B> 73 DATA76,137,26 <93> 
17 FRINT"ESPACE 5- SPAGEIS S- <255> | 74 DATA189,2,157,1,30,169,7,157,1,150 <F> 
18 PRENT"{RIGHT S- RIGHTTSBYISPAGER 5- “202? | 80 DATA202,208,167,189,0,31,201,3,240,1,96,76,54 
17 FRINT"{SPACE S- SPACEIS S- <255> | „26 «753 
20 PRINT" ISPACE S- RIGHTIFHEINZTSFACEIKROGSTSPAC 27 DATAI& <250> 
Ed 5 ü “133> | 106 FOKE198,1:FOKES31,13 «109% 
21 FRINT"{SRACE S- SPACEIS S- <i> ENDE DES LISTINGS 
22 PRINT" {SPACE SI S#IE SK HP HMITEN" <129> Zr 
30 FORA=7 1786107335: REABB: POKEA,B= NEXT:POKEISB, Le 
FOKE631,131 <248> 
10n DATASS,67,253,205,181,1B1,206,252 <162> 
101 DATAS54,110,252,2748,240,254, 124,56 <207> 
10? DATAD,0,0,0,0,0,0,0 <al> 
103 DATNO,S0,177,255,255,254,126,60 <99> VE20 LISTING + CHECKSUMMEN (V V1.0) 
104 DATA48,124,254,255,255,127,30,6 <55> , 
105 DATA14,63,127,126,252,248, 112,112 <25j> | © PRINT"TICLEAR BLUE SPACESFTENL {SPACE “107 > 
104 DATAO,30,127 ,235,255,254, 126,60 <102> |.1 PRINT" ISPACES CYs MHITEI" <254> 
107 DATAZS3,36,24, 24,24 24 ,60,126 €33> 10 FÜRA=6143T0S8885TEP-1: RESDB: POKEA,B: NEXT <18> 
108 DATAO,24,126,124,126,60,24,0 <isa> | !1 FORA=4418T06486: READB: POKEA,B:NEXTF ei13> 
107 DATA126,60,0.0,0.0,0,0 <88> 100 DATA209,0,209,0,209,209,0,201 <99> 
110 DATAO,0.0,0.0,24.126 126 &159> | 101 DATAO,221,0,221,0,221,219,0 «57 > 
’ r nl , . F ’ 
111 DATAO,24,60.126,126,126,24,0 <17ex | 192 DATA215,0,2079,0,207,0,209,215 247 > 
112 DATAO,0,0,0.0,0,60,12& <9a> 103 DATAO,209,0,209,209,0,203,0 <98> 
113 DATA126,126,24,0,0,0,0,0 <ö8> 104 DATA201,195,0,187,0,195,201,0 <159> 
114 DATAG,0,29,82,111,127,62,28 &174> | 105 DATAO,195,0,0,187,195,201,187 <AB> 
115 DATA192,224,290,240,224,0,0,0 <g9> | 196 DATA175,183,187,0,163,0,187,0 <s8> 
118 DATAL 3.6,7.2,0.0,0 <ziı> | 107 DATA2O1 ,209,0,203,0,201,195,0 437> 
117 DATAO,0,56,124,246,254, 124,56 <zas> | 108 DATA187,0,187,187,1,207 ,215,0 <2Ar 
’ r ’ Y ’ ’ ’ “ 
118 DATAS. 7 15.15,7.000 &147> | 199 DATAZ15,0,207,207,207,217,0,217 <75> 
119 DATR128. 199 Yu 324 192 0,0.0 119» | 419 DATAO,215,209,215,223,0,223,0 <23> 
r ’ ’ Li: F s r . . 
ENDE DES LISTINES 111 DATA219 ,223,225,0,217,0,715 <11> 
112 DATA230,0,234,0,234,234,0,230 «323 
. 113 DATAO,239,0,239,0,737,238,0 <154> 
114 DATA2S6,0,234,0,234,0,734,256 <2490> 
115 DATAO,234,0,234,7234,0,231,0 <5R> 
114 DATA230,227,0,223,0,227 ,230,0 <258> 
117 DATA227,0,0,225,227,230,223,221 - <7> 
118 DATA223,227,221,223,0,236,239,0 <125> 
119 DATA2I8,0,236,234,0,230,0,223 <38> 
120 DATAO,223,223,227,227,230,230,231 <158> 
vo2H LISTINB + CHECKSUMMEN (Y Y1.0 121 DATAZ231,274,230, 234 ,230,230,239,238 “232> 
122 DATAZI& „234,231 ‚230,227 ,223,7%0,22% 2194> 
10 FRINT"CBEVE CLEAR SPACETITEILTSPACEID <177> | 123 DATAZS1 ‚223,234 ,225,256,223, 238,223 <«1B6> 
20 PRINF"{SPACET CY& DOWN MHITE}Y" <151> | 1724 DATA239,238,236, 234,231 ,230,.227,223_ <117> 
30 FORA=7168T07175: FOKEA, 235: NEXT: FORA=7424710743 .125 DATAZ23,0,225,227,230,0,230 <134> 
1:FOKEA,OTNEXT <208> | 126 DATAZI1,234,0,256,234,230,0,0 <220> 
40 A=7000 <ä6> 127 DATAO,234,0,231,230,227,0,0 <45> 


‚1086 Sompute mib 


Programme 


178 
127 
130 
131 
200 


DATAO,231,0,730,227,273,0,0 
DATAQ ,223,0,223,227,230,0,230 
DATA231 ,234,0, 236 , 234,230 ,0,0 
DATAO, 234,0,231,2530,227,0,230,227,223 
DATB159,39,191,20,3,169,75,191,21,2,169,255 
201 DATALS1,40,25,160,755,141,46,25,96 
202 DATA173,255,23,191,10,144,173,255;23,141,10, 
194,204 
203 DATA60,3,173,60,3,208 ,0,740,3, 
6,25,.169,15,141,60,3,169, 17,141 
244 DATA1L4, 144 ,206,40, 25,206, 14,144,76,191,234,9 
& 
205 FOKE19B,1:POKE6S1,131 

ENDE DES LISTINGS 


75,80,25,205,4 





VE2HO LISTING + EHECKSUMMEN (V V1.0% 


FRINT"{CLEAR DEHN REDY": FOKES6879 ‚232: RUNAS 
RESTORE: ES=PEEK (55) +254#PEEK 156) -53 

POKESS „ES- (INT (ES/756) #256} 

FOHES6 ,E8/256:[LR 
ES=PEEK (35) +756#PEEK {596) +2 

FORB=0T7047: READATPOKEB+ES „A: 3=S+As NEXT 
FOKEO,7& 

FOKEI JES-INTIES/ASAT FOR) 
POKE2,ES725&6: PRINT" {HHITE}":POKEI1IB,1:POKESS1, 
131:END 

DSTA173,17,145,72,74,74,91,7 
DATAL33,251,104,41,32,10,10,5 
DATn251,133,251,162,127,142,34 
DATA145,173,32,145,162, 255,142 
DATAS4,145,41,128,74,74,74,74 

15 D6795,251,9,112,73,255,159,167 
DATAO,76,135,211 - 

FOKE1FG, 1:POKES31,151 


[u Ze ET N Ze 





45 FORA=0T049: READER: NEXT 
350 FORA=4487 106708: RERDB: FOFEA „B: NEXT: POKES6B69, 
255 


100 DATA169,191,141,20,3,167,234,141,21,3,169,0, 

141,10,144,141,11,144,141,12,134 

110 DATA141,14,144,96 

120 DATA162,0,189,22,31,201,32,2490,3,76,127,25,7 

6,137,25 

121 DATAIA9, 22,31 ,201,2,240,3,76,207,25 

130 DATA189,0,31,201,7,240,3,76,162,25,16%7,32,15 

7,0,31,169,7,157,22,31,169, 2,157 ,22,151 

136 DATA189,0,31,201,5,240,3,76,177,25,169,7,157 
„0,31 

159 DATA2397,0,.3F 
„0,31 

160 DATN184,0,31,201,4,240,3,76,207 ,25,169,5,157 

„0,31 

170 DATAZOZ,20R, 160 

220 DATR162,0,189,22,30,701,32,240,3,76,225,25,7 

6,235, 25 

228 DATA199,22,30,201,2,240,3,76,49,2& 

2320 DATA189,0,350,208,7,240,3,76,4,26, 1659,32,157, 
0,20,169,7,157,72,30, 168, 2,457, 27, 150 

>40 DATAIG?,0,30,201,6,240,3,76,19,26,169,7,197, 

0,30 

250 DATA189 ,0,30,201,5, 240,3, 76,54, 26,169,6,1575 

0,50 

260 DATAIB?, 0,30,201,4,240,3, 764,99, 26,167 4,5, 157, 

0,30 

270 DATA202,208,160,76 

ZOO PRINT" RIGHTIDCRICHTZID{RIGHTZIDLRIGHTIDIRIG 

HTSDDERIGHTIIDERIGHTZYDERIGHT}" 

301 PRINT"DIRIGHTIDERIGHTID{RIGHFID{RIGHTIDDDIRZ 

GHTIDERIGHTIDCRIGHTIDIRIGHTIDERIGHTIDIRIGHT I" 

302 PRINT" DIRIGHT3ID{RIGHTYDIRIGHTYDERIGHTIDARIG, 

ETID{RIGHTID{RIGHTYDIRIGHTID{RIGHTIDTRIGHT}": 

33 PRINT"DDD{RIGHTIDERIGHTIDIRIGHTID{RIGHTIDIRL 

GHTIDD{RIGHTZIDLRIGHTIYDIRIGHTIDIRIGHT}" 

304 PRINT"DEIRIGHTID{RIGHTIDDDERIGHTIDIRIGHTIDERZ 

GHTIDTRIGHTIDTRIGHT ID{RIGHTIOLAIGHTIDERIGHTY" 

305 PRINT"D{RIGHTID{RIGHTIDLRIGHTYBERIGHTIDERIGH 

TID{RIGHTID{RIGHTID{RIGHTIDERIGHTID{RIGHTFDIRIGH 

DD": 


„201,5,240,3,76,1972,75,157,5,157 






















































































306° PRINT" {RIGHTID{RIGHTZIDTRIGHTID{RIGHTIDIRIGH 








I3Er 
<Ib> 
“2203 
sa4> 
“1367 
<145> 


«217> 
<90> 


<197> 
<214> 


s219> 
«1547 
SZAl> 
x177> 
e137> 
«167> 
z107> 
x94> 
<147> 
“1453> 
A7F7> 
<37> 
<130> 
<73> 
<219> 
<22B> 
<27> 
<1B6> 
<F74> 


x42> 
<103> 


<“3B> 
“238> 


<143> 


<H5> 


x213> 


<94> 
93 


“3a> 
<203> 


<109> 
x92> 
<224> 


z89> 
2423 


<1973> 
1575 
“7> 
<aa> 


<a> 


'<209> 


T}DIRIGHTIDOTRIGHTIFD{RIGHT23DD"; 
307 PRINT 
308 PRINT"DDDDDDDDVDDDLUDTDUBDLD 
309 PRINT " 
310 PRINT"£EDOÜHNd BLACK DOUNIFEBEIEREERFEHSBEEEERE 
BA@CHOHEI"S | 
319 FORA=1T01500:NEXT 
370 FORA=1T040:2 8YS54512: FORB=-110702 NEXT: NEXT 
330 FORA=1T09%97:NEXT 
397 PRINF®CCLEAR} ": POKES6B6Y, 240: BOTOL 
ENDE DES LISTINGS 








vC20 LISTING + CHECESLUMMEN {4 91.0) 


O0 FRINT" {CLEAR DEHN?"; 
5: PDEEB29F,,1:POKESSO,O 
1 POKE4447, 10: FORE4443, 10 

2 CLR=W=I32:As="TSPACES DOHN LFFTS SPACE DOHN LE 


:POKES68977, 14: FORE36887 ,25 





5 557000: B$="(HHITE DOHN LEFTZINLVELLOH UPIB":Z 
=30720: T=4893 

10 B=PEEK 8279) #8+32748: B=1: 505UB20:SY57022 

11 FRINT" CHOME BOHN3"; :B=0: GOSUBR20: GOTOS2 

12 FORG=38884 039905: FPOKEB „As POKEG-Z „OÖ: NEXT 

15 FORG-Z9883T0308545TEP-1: IF (PEEKG) AND41=4THEN 
FOHEGB,& 

14 NEXT=RETURN 

20 F=0s FORC=RTOR+6 3 E=-FEER (6) TFORD=64TO1STEPO 

z1 IF<EANDDI=DTHENPRINTAFS : F=F+i: IFB=SOTHENIFF/4= 
INT {F/43 THENPRINTBS 4 :95=55+1 

25 IFtEANDDI < >DTHENPRINT" CRIGHT3F"3 

30 D=D/2:NEXTEPRINTCHRE (13) " TDOHN23 "3 ENEXT:GOTOL 
2 

32 FORA=-8185T0OB1B1STEP4-FORG-ATOA-4408TEP-22 

33 IFPEEK (G)=WTHENIFPEEK (6-22) =S0THENPDKEG,B:POKE 
6-22,4: POKEB+2 „4: POKEG+Z-22,2 

z4 NEXTG,A 

38 POKES6903,50:POKER2A, 15: POKE&143,209: 5956418: 
FRINT"IHOHEI" 

40 FORG=7680708185: IFPEEK (5) <>WTHENNEXT 

41 AG: FOKERF+A,B: POKEA+4+Z , 41 FOKEA-1B, A: PDKEA-18 
+Z, 4: POKEA+Z , 76-8185: 0=7 

50 SY545172:8=USR (0) ANDLZ7: ONGGOTO6O,70,0,80,80,7 
0,0,110,60,110 

51 B=0:60T0140 

&0 B=-22:0=9: 6010140 

70 R=22:t=12:60T0140 

BO B=-1:C=15: 6010140 

110 E=1:6-18 

140 POKEA,WESVST:PE=PEEK (A+B) : IFFEC>WORPEEK (AI<> 
WGDTO1S0 

145 IFE< OTHENPOKEA „C+1: POKER+B+Z „7: POKER+B,U4+23 
FORX=LTO1S:NEXT:POKER, K: A=A+B: 5070147 

144 FORX=1T030:NEXT 

147 POKEA,C:SOTOSO 

160 IFFE=ZORPEER (A) =ZG0T70300 

155 POKEA,C: IFPE=1G0T0200 

170 IFPE<ITHENIFPE>3E0T0999 

197 BOTOSO 

200 58=58-13 1IFSS>0BDTO145 

202 SYS56487:=6449: B=4445: POKER,PEEK (A) +1: IFPEEK 
(A}<&13GOTD2109 

204 POKEA,10:POKERB,PEEK{B}+1+ IFPEEK{BI=1STHENPOK 
ER,10 

210 A=B29:FOKEA,PEEK (A) +1: IFPEEK (A) <27G0T0Z 

220 PÜKEA,1:POKEBSO ,PEEK {830} +1:G0T02 

300 5Y564B7: POKEZ68978, 15: FORA=230TQ1B0STEP-30: FO 
RE=ATDA-50STEP-1:POKES6876,Bz NEXT=NEXT 

301 SYS4487 











T DOHN RIGHT DOHH HHITE DORN2 RIECHT RVSOH SU 587 


ST}"=PRINT"{RVSON RIGHTS S-IBAMETSPACEIOVER {5} 
=10 PRINT"IRVSON RIGHTS SI 589 5K}" 
398 IFUSR (0) >127THENRUN 
3997 GOTOSFO . 
799 PIEEA,CH IFPEEK {830} >OTHENIFPEEK (AtB}=7G0TOSO 
1009 IFPEEK (A+B#=2) =WTHENPGKEA+B#2,PE: POKEA+BR2+Z 
„4: FOKER+B ,W:60T0S0  " 
1001 GOTB50 

ENDE DES LISTINGS 








«1675 
“2037 
S246> 
<207> 


<244> 
«244> 
<196> 
397} 
“99 > 





2164> 
x16> 
S30> 
«221> 
<105> 
£33> 


<7d> 


<240> 
“181> 
x135> 
<122> 
129> 
<18> 

«745 

<1235> 


A772 


AERS> 
sier 
<iz#> 


<130> 
<179> 


30> 
E3> 
253> 
<10> 
s67> 


1457 
<111> 
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188 











_ Programme 


WOSTOK ist eine sowjetische 
Weltraummission, bei der Sie als 
staatlich konzessionierter Hub- 
schrauberpilot den nötigen Rake- 
tentreibstoff herbeifliegen sollen. 
Den Treibstoff in Gasform holen 
Sie aus einem riesigen Tank, tief 
unter der Erde. Um zu diesem zu 
gelangen müssen Sie allerdings 
durch einen Tunnel fliegen, in 
dem - oh, du lieber Himmel - im- 
mer mehr Luftminen Ihren Weg 
erschweren, denn sie tauchen ur- 


dort automatisch vollgetankt. Da- 
nach treten Sie Ihren Rückzug an 
und landen diesmal auf der obe- 
ren Rampe, wo der Hubschrau- 
ber automatisch abgeladen und 
die Rakete betankt wird. Je nach 
Schwierigkeitsgrad wiederholt 
sich dieser Vorgang bis zu zwölf 
Mal. Sobald Sie gegen Rampen 
krachen, den Gastank zur Explo- 
sion bringen, den Kontrollturm 
zum Einsturz bringen, die Rake- 
tenrampe oder gar die Rakete de- 


molieren, verlieren Sie das Spiel, 
weil die Raummission nicht er- 
füllt werden kann. 

In dieser Version benötigen Sie 
den Joystick, zur Lenkung in alle 
Richtungen. 


plötzlich aus dem Nichts auf. Zu- 
sätzlich sorgt auch noch eine Bar- 
riere für Schwierigkeiten, Sollten 
Sie am Boden der Höhle angelan- 
gen, landen Sie in der Mitte der 
Rampe. Ihr Hubschrauber wird 





ET ge 1, . a. 
Brüderchen, halte ein! Wir sind ebenfalis auf der Suche nach den Treibstofftanks! 










































































VEZR LISTING + CHECKSUMMEN {V V1.0) 1014 DATA7S2,252,252,252,254,253,255,258 EI2> 
1015 DATA2SS,255,255,132,188,199,190, 181 K2ES> 
a 6010700 <71> 1016 NATA255,255,255,23,175,161,61,189 <114> 
Br: <b65 1017 DATAL33,299,295,255,255,255,255,127 x160> 
9: LrR> 1018 DATA1&1,253,295,255,255,255,253,254 <187> 
VO <RRUr 10197 DATA255,129,127,129,129,129, 129,255 s11> 
20 WOSTOK VORFROBRAMM <&A> 1020 DATA255,255,0,724,102,74,0,255 <46> 
FOREN x2> 1021 DATRB,8,9,20,28,28,28,28 <1FI> 
406 THOMAS HUETTNER «250> | 1022 DATA28,28,28,20,62,62, 34,46 176} 
50 JOHANNES POLAK <209> | 1023 DATA46,34,62,34,46,46,34,62 <1373 
70 LINZ, 1996 “1735 | 1024 DATAS4,46,111,99,127,99,107,97 <141> 
BO Bere <32r 1025 DATAi11,111,127,127,728,28,62,127 <P005 
a: <148> | 1025 DA18138,37,144,90,153,18,164,B3 <155> 
1: <149> | 1077 DATA129,192,224,240,240,257,754, 255 <4ar 
700 FOKES2, PB: FOKES&,2B=EPRINT" CLEAR DOHNS YELLO 1028 DATA1L,3,7,15,31,63,127,255 <2li> 
H BIGHTEIWOSTOKCDOHNIF" :POKESGB79,,27 <193> | 1029 DATA253,754,2572,248,240,224,192,128 z2SR> 
710 FRINT" {GREEN DOWN? (C} SPAGEFLIBAISPACEIBYISP 1030 DATA255,127,63,31,15,7,%,1 “2063 
ACEFH.T.-BOFT „ SPACETIPLSPAGEIANDESPACE REDISPYL 1031 DATA25S,255,755,255,255,255,255,255 £250> 
TESPACEISYSTEMSTBLÄCK E93 1032 DATAO,0,0,0,0,0,0,0 KRR7> 
E00. FORT=0T051 1: READB= POKE71&B+T „Bz: NEXT: POKESGOG 1033 DATA7,15,31,4,31,5,15,3 SZIF> 
9,258 <23> 1054 DATA224,240,240,32,248,192,280,192 <20S> 
SIG FRINT"ICLEAR DOHN CYAN DOKN RISHTBI "Orr, "ip 3035 DATAS, 1,353, 5,1; sl 298> 
RINT"{DEHN BIUE DOWN2 RVSONFSIE, (SPACESEINISPACE 1034 DATALF2,178,192,192,192,128, 128,128 <175> 
FERFAHRENERTSPACE3ZFHELICOPTERFILOT ,SOLLEN{LEFTI” <HBS> 1037 DATAL,I,1,Z,1y1,8y1 <> 
920 PRINT" {RYSON UPIEINE<SPALCE}STARTBEREITELSPAC 1038 DATA124,129,129,64,178,128,178,128 <IT% 
ES ORVSGEFF' O8#+, CRVSOHF-RAKETELSPACEIRBETANKEN <176> 1057 DNTA129,129,129,129,129,153,255,0 <192> 
50 PRINT" {BLACK RVSONIACHTENTSPACEFSIETSPÄCEIAU 1049 BATA255,129,129,129,129,127,255,0 E213> 
FISPACEIDIE{SPAGCF4FGEFREHRLICHENSPACEIMINENTSPA 1041 DATAZSS,128,128,255,1,1,255,0 <115> 
CE BESOFF REDIFIBLACK RVSON SPACEFUNDESPACEIKOLL - 1042 DATA255,24,74,24,24,24,24,0 <70> 
IDIEREN{SPACEISIE <175+ 1043 DATA2SS,129,127,179,129,129,255,0 <2i6> 
BAU PRINT" {RFSONFNICHT {SPACEIMITCSPACEILEDENSWIE 1044 DATALS2,17&,224,192,224,176,152,0 <B> 
H-{SPACEITIGEN{SPAGEFUTENSILIENTSPACESI CSIBIRIEN 1045 DATA, ,,,28,28,62,108 <235> 
TSPACEZIWARTET., .) <AA> 10464 DATAL1O,t19,62,50,62,20,8,8 <38> 
850 FRINT"{DOHN? GREEN RVSONITASTE":POKE178,0:WA 1047 DATA224,240,248,32,248,192,240,192 <218> 
Irıs8,1 <33> " 
860 FRINT*ICLEAR RVSON REDIUMTSPACE? AUFTANKENLSP 1049 ee rar 
AGE? ZUCSRAGET KOENNEN, (SPACEFLANDENISPACEISIELSE 1050 DATAS.6.7.7.7 98.9 10 en2t> 
AGEZFAUF {SPACEIDENFSPACEISTART-SPACEIUND “49° | 1051 DaTat1,12,12,14,15,16,16,16 22013 
Ban TLRVSONFLANDERAMPENTSRACE) (LRUSOEFFETST 2035 1052 DATAN15,16,16,16,16,16,16,17 x755> 
RUSON, 3 3 = 2 > 
SEO FRINT"{RFSON PURPLE DOHNZ YELLOHIWIRTSPACEIW 1058 gr onzin Pa BER 
VENSCHEN{SPACEI IHNEN{SPALESF VIEL SPACEISFASS! <18> | 1055 DATA24,24,24.25,26 26.27.28 <173> 
870 FRINT"{DOHNZ GREEN RYSONI TASTE" SPÜKE1FA,0:WA 1056 DATA2?,30,30,30,X0.30.30.30 <194> 
IT198,1 j <73> ei S1.22 53 za 202 < "igas 
900 FORT=67310723+READASPÜOKET „A:NEXTSPRINT" LCLEA ee REAESSEEIER SEES ESEL ANTGE «196° 
R?":FOKE36869 , 240: POKESS1,131:PUKEL98, L:END <187> | (057 DATAI2.A1 22 AS ax aa de" 2 
1000 DATAO,240,6,57,94,252,40, 124 e174> " ne t3,95,04,905,46 “136 
+0,57,94,252,40, s 1050 DATA47,49,48,49,48,48,49,50 <168> 
1001 DATRO,15,0,57,94,252,40,124 2235» Year eg ron en Bi - 
’ . ‚252,40, 1061 DATAS1,57,57,54,55,56,57,58 <16B> 
1007 DATAO,240,0,24,36,60,24,76 £37> 1062 DATASA 38 SB SR SD Se Sn j 
er 58,59,58,58,58,58,5B,58 2165> 
1007 DATAO,15,0,24,36,60,24,36 “203° | 1065 DATASE,SB,58,0,0,0,0,0 <1B1> 
1004 DATAO,240,0,156,122,62,20,62 6B> 1101 DATA162,739, 189, ,3214157,22,31 189, 151 157 nn 
1005 DATAO,15,0,156,122,67,20,62 <138> | 79 151 BE BB BE Be BEE Zu 2 En 2 21493 
#006 DATAO,0,0,16,56,16,0,0 “2333 5 = 2 z u 
1007 DATA6S 63, 127,127 ,127 127,127, 127 «1708 za 202 224 2ES,20B,237,162,255,189,0,30,15 2190% 
1903 DATALZF,755,255,755,241,274,172,178 :10> 5 a 
1009 DATA127,127,127,127,127,127,127,127 anna 9189, ,180,157 ,22,150,202, 224 ,255,200,237 <82: 
1010 DATA178,172,224,241 ,255,2553,255,179 + > 29 200.2 3x, 
1011 DATA127,127,127,127,127,127,255,255 xy1> 1 an 168,0,197, 530,252 ,224 ,22,208,248,96 Be 
1012 DATAO,192,192,192,252,252,7572,252 ap: ENDE DES LISTINGS “ 
1013 DATA&Z,63,63,63, 127,255, 253,255 <190> 


186 Compute mib 
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programme 





VERO LISTINGS + CHECESUMMEN (V V1.0) 


4 PRINT"SEARCHINGISPACEHFÜORTSPAGEIDATASCSPÄCEN" 
5 DFENL,1,0, "WOSTOKISFACEFS" } DIMAF (59) : PRINT "FOU 
ND" + FORT=1105@: INPUT#L,ASCT) ENEXT:CLOSEI 

& BE tIO)="ERIGHT EYAN SPACE? O%+, {BLACK SPACE R 
IGHTZ} TISPACETY" 88 (24) =" [SPACE 20": ASASD)="" 
KLEFT INST}_XLEETZ 


03"2BS=" HOME DOWN 

10 DEFFNX tR) =7700+B: FX=20720 

15 X%=2- 5C=0: T4=0:N=0: POKES6&878 „5: POFESGEGF ‚235: 

FOKESAB7F,2I2 

20 PRINT"ICLEAR BLACKY"e2M=-11:B=14:14=0: Bi=2: At 
" _ISPAGEI" 
30 BOSUB200: IFM<>iGTHENSO 

SO Afsn%+1+2% (AZ=1) : POKES6877 , 199-ARRA40:AS=RICHT 
#(A$,A)+LEFTEIAF,1} 

55 IFM>SSANDMCB2THENFOKE211, 14: FOKEZ14,B1-M: 5Y55 
96404 PRINTAS" CHDHEI" 

59 POKEZ7154 ‚127: A=PEER (37152): POKES7 154 , 255 

&0 IF tAANDL2BI=OANDSZ=OTHENPOKEFNX (B} „32: B=R+1:B 
n=4 

5& A=PEEK (37151) 

79 IF (RANDLSF=OANDGSZ=OTHENPOKEFNX (B) „32: B=B-1:B% 
=Q 

Bo IFtAANDA}=OANDM>LLTHENZSO 

90 IF (AANDBI=GTHENGOSUR2OO 

100 IFPEEK (FNX tB) )< F32ANDPEEK {FNX {B} } >STHENSOO 
110 FOKEFNX (BI) „BY+NZ:POKEFNX (BI -+FZ,&:B%=2 

115 IFMSZOANDME LOOTHENT=7680+1NT {RND (1) *506) : IFP 
EEKtTI=Z2THENFOKET „as POKET+FY „2 

170 IFSZ=OTHENSO 

130 IFM<SIOTHENLZ=LY-10: SC=SC+10: T4=T%+10: IFLR<SOF 
HENSZ=0: T%=T%-10= SC=-5C-10 

140 IFM>SOTHENL#=L%+10: 8C=SD+13 IFLZ>=SOCTHENLY=S 
00:5%=0: SC=8C-1 

150 PRINT"{HOHE DOHNIZ RFSON GREEN} "SFEGLLIRIGHT 
$LFLSPACESF}"+STRE L%) 45) "IBLACK 

155 IFT%>=10009THENS60 

160 IFSY=OTHENFRINT"THRH"SPELIEI"____ n 

17G GOTOSO 

180 IFPEEKFNX (B) ) <ATHENPOKEFNX (B} „32 

181 RETURN 

200 GUSUB130:PRINTBEAF LO) AS (PEEK (75644M}) "CHONE) 
"2 M=M4+1: IFFEEK IFNX (BI +22) =2OTHENSY=1 

245 RETURN 

250 GOSUB180:5Y8578: PRINT" CHOHEF"AFLO) AS CPEEK {M+ 
7540) 3 M=M-1: IFS%=1 THENSZ=0: BOTH 50 

260 80TD100 

300 X#=X%-1: IFPEEK (FNX BY )<=ZEHNDPEEK IFNX (BI <> 
THENXZ=0 

310 POKEFNX (BE) „24: POKES4877 ‚0: T=106 (1): L%=0: IFR% 
IOTHEN2C 

330 PRINT"ICLEAR DOHN3 
SE: POFE178,0: IFHIESCTHENHI=SC 

335 PRINT" {RVYSON BOWNZIHISDORE: "HI 

340 IFFEER (197) =44THENS3A0 

250 GOTO1S 

360 N=N+1: IFN>LOTHENN=10 

370 SE=SC+10005 T4=-500=N 

3B0 As="CHOME RED RIGHTS DOWNSTUIDOHN LEFT>VIDOH 
N LEFTIWIDOHN LEFTYXCDOHH LEFTIV{DOHN LEFTI-KRED 
DOHN LEFT>.XDOWN LEFT. SPACE} " = PRINTLEFTS (A$,37) 














RYSON CYAN SPACEZFSEORE: " 




















: TFL0SIm 
370 FORT=0T022: 59567353 PRINTAF:B=LDG nm} NEXT: AF=" 
":G0OTO20 

ENDE DES LISTINGS 





VE2O. LISTING + CHECKSUMMEN 1V v1.0 


G0TO7O 


o 
1 
? 
10 un 


«15? 
x176> 
21383 


<233> 
191> 


<iB6> 


“1575 
<Z246> 


Er? 


<1197 
“IF 


<191> 
21083 


<145> 
x31> 
x87> 
<1217> 
«723 


<175> 
<1757 


<48> 
2377 


<114> 
<208> 
<229> 
<45> 
<25> 


<> 


<244> 
<131> 


“1437 
“64> 


<50> 


<149r 
x12> 
z121> 
x233> 
sz11> 
44> 


2179> 


«95? 


«133> 
593 
«605 
238? 


79 WOSTOR-BGENERATOR 

TO KERN KERN HR 

40 <XC} 19586 H.T.SOFT 

so Jr 

60 SPFYLF SYSTEMS 

Pe 3 © 252,5 2.2 2 2.2 202020202202 

622 . 

63 8 

70 FRINT"SIND{SPAFEISIETSPACE}IBEREFT?":PORE1978,0 
:WALTITEO,E 

80 DPENI „1,1, "WOSTOKLSPACEYS" = FORT= 1 TOSB: READAF: 
FRINT#1 „A$= NEXT:CLOSE1 

90 PRINT" <POHNZYFERTIG. "END 

100 DATA"£LEFT SPACEZI1>" 

110 DATAM{LEFT SPACEZ RED SPACEIUASPACE 
ACEIS>" 

120 DATA"{LEFT SPACE2 RED SPACE>VISPACE BLACK 
AGES YELLOW! /TBLACK SPACEFH" 

130 DATA"ILEFT SPACE KHITEIGHIREDIWISPACES YELIO 
HIYHSIBLÄCK SPACEFY" 

130 DATA"ILEFT SPACE KHITEITTLREDIXISPACES YELLO 
MHIZLISPACE PURPLEISTSTBLACK SPALESF" 

iSo DATA"{LEFT SPACE WHITEIKLIREDIYIBLACK SPACE 
EN__-._______ L{SPAGE2Y" 

460 DATA"CRIGHTIS SPACEZ LEFTY" 

170 DATA" ERIGHTIFFITSPACE2I" 

180 DATA"IRIGHT SPACEB RIGHT4Y ITSPACESY" 

170 DATATIRIGHT SPACE CYAN} O%*+, {BLACK SPACE RI 
GHTZ>IASPACETI" 

200 DATA"IRIGHT SPACEB RIGHTZ2IITSPACERY”" 

2109 DATA" ERIGHT1OF TTSPACHSFN 

220 DATA" {RIGHTS SPACE3 RIGHTZ3I{SPACEFF" 

230 DATA" CHIGHT4 SPACEIS}" 

223 DATA'IRIGHTS SPACEISFIN 

240 DATA"{RIGHTS SPACE3}" 

250 DATA"TI{RIGHTS SPACEIS RIGHTIHILSPAGETT” 

250 DATA"IRIGHT4 SPACESINEIRIGHTZYILISPACEII" 

270 DATA"{RIGHTAFELSPALESYNIRIGHTS SPACE3I" 

280 DATA" {RIGHTSFTISPAGEIINCRICHTS SPACEII" 

290 DATA"LRIGHTIS SPACE3I" 

200 DATR"IRIGCHTIS SPACEII” 

z10 DATA"TERIGHTIS SPALCE4Y” 

320 DATA" {SPAGEZOF" 

330 DATA"TLISPACESN______ 
340 DATA"CRIGHT SPACEIY" 
350 DATA"CRIGHT SPACE4 RIGHT2I HSPACETY” 

360 DATAMERIGHT SPACES RIGHTZ2 SPACELI>" 

370 DATA"CRIGHT. SPACE4 RIGHT2 SPAGF2F_LISPACETF" 
390 DATA"{RIGHT SPACE4 RIGHT2 SPACE2 RIGHT4 SPAO 
ESF" 

3970 BATA"ERIGHT. sp 
ACES>" 

400 BATA"IRICHT 
ACES3" 

410 DATA"{RIGHT 
Es}" 

420 DATA"ERIGHT 
CES}" 

430 DATA" {RIGHT 
73” 
440 
450 
A565 
470 
430 
470 
500 


BLACK SP 


We] 
4.) 











R 





















































TISPACRETN" 














SPACES RIGHT2 SPACE3 RIGHTZ2YITSRA 





SPACES RIGHTZ SPACE3 RIGHT2 SPAC 





SPACES RIGHTZ SPACE3 RIGHTIITSPA 





SPACES RIGHTZ2 SPACEIZ RIGHT, SPACE 








DATA" CRIGHT SPAGEAFTIISPACEZ RIGHT SPACEBF” 
DATA"CRIGHT. SPACEI RIGHT SPACEFF" 
DATATLCRIGHT SPACEI RIGHT SPAGEFY" 

DATA" LRIGHT>_ T{SPACEI?N\ _{RIGHT SPACEFY” 











DATA" ERIGHTS}I{SPAGES?" 

DATA" CRIGHTI33 IESPAGE1SF" 

510 DATA" CRIGHT3 SPAGEI6F" 

520 DATA" LRIGHTI SPACESI______TTSPACERF" 
5:0 DATA" RIGHTS SPACESI\_______ESPACESI” 
540 DATA“ {RIGHTS SPACEZ}\_ _TSPACESH" 










550 DATA"TLRIGHTI SPACEZIN_________TSPACES?" 
540 DATA"{RIGHTE SPACED__________ {SPAGES>" 
570 DATA" ERIGHTZ SPAGEZ} LISPACE4Y" 





580 DATA" CRIGHT3 SPACEI+"___{SPACE4>" 

570 DATA" RIGHTS SPACE103”"__EISPACESI" 

600 DATA" {RIGHTS SPACE1I3___{SPACEI?" 

610 DATA"{RIGHTZ SPACE113”__TSPACE3I" 

620 DATA" {RIGHTI SPACE1ZI ILSPACEII" 

630 DATA" LRIGHTI SPACES BLUEIMNÄBLÄCK SPACEI23" 








640 DATA" {RIGHTS SPACEZ BLUEIOPIBLACK SPACE12+" 
650 DATA"TLRIGHTZILISPACEZ BEUEIORTSPÄCES GREENIS 
TSIBLACK SPACESFN 
&&0 DATA 

ENDE DES LISTINGS 





CSompube mib 


“246> 
<> 
1F5> 
<207 
<alr 
<35> 
z120> 
s121> 


«71> 


<155> 
«99> 
<20> 


“178> 
<55> 
23? 
<a4> 


<100> 
<135> 
<B2> 

<238> 


<37> 
<223> 
975 
<118> 
227 
SEIRF 
<21> 
“2157 
«73> 
<a3> 
<146> 
<F4> 
<x144> 
<B4> 
<B6> 
<137> 
ar? 
«1687 
<158> 
«1555 


<1&> 


<B> 
<127> 
<9> 


169% 
<2A9> 
<1658> 
<178> 
<B&> 

158> 
<61> 

<114> 
<14> 

<243> 
<193> 
<191> 
<196> 
<230> 
<22> 

<102> 
«31> 

<149> 
<142> 
<84> 

<128> 
<1890> 


<40> 
<25> 


1186 





u Sonderheft 3 


Ein kleiner Fehler hatte sich lei- 
der auch in dem Programm ’Bre- 
ak Out’ aus dem Sonderheft 3 ein- 
geschlichen. Nack einem kurzen 


Break Out 


Eingriff war der Fehler sofort be- 
hoben. Hier nun die beiden kori- 
gierten Zeilen. 


Scrumble Heft 10 


Tja, was soil man sagen. Der klei- 
ne Druckteufel hat mal wieder 
zugeschlagen. Oder, vielmehr die 


DiFER CH O2 Fa GE 09 02 Aa oe 
>ifcn oe 4 2 95 io 5A a5 2 


korrekturen _ 


liebe Technik hat uns wieder ein- 
mal gezeigt, daß sie ebenfalls 
nicht vollkommen ist. Unser 
VC.20 war es in diesem Fall, der 
seinen Geist aufgegeben hat. Si- 
cherlich sehr ärgerlich wenn man 
gerade nach mühevoller Arbeit al- 
les schön korrekt eingegeben hat 
und dann feststellen muß‘, daß der 
zweite Teil fehlerhaft ist. Aber 


wer wird denn gleich aufgeben, 
wenn man bedenkt, daß der erste 
Teil schon mit einem Haufen Ar- 
beit verbunden war und schon 
eingegeben ist. Hier ist nun der 
korrekte zweite Teil von Scerum- 
ble, damit Sie endlich in den Spiel- 
genuß kommen können. Naja, 
keiner ist vollkommen, auch 
Computer nicht! 





W220 LISTING + EHECKSUMMEN VE V1.05 











1 REM „ SCRUMBLE HAUPTPROGRAMM . <174> 
2 REM. CC) 1765 RY MARTIN RIEDL . <215> 
10 FOKESS,0: POKES& „28: CLR: GESLIBFOOO x252> 
180 PRINT” CLEARF" SPOKES6B79 ,25: POKESEBE 

7,255 x18> 
170 FP=0 <112> 
170 FRINT"{CLEAR BOWN23Y" :PORES6B79,25:R 

EM 23 RUNTER <227> 
200 A=8159:B=8180:60=784421=30720: T2=12:T 

Eoy1 <&197> 
217 REM HAUPTPROGRAMM <151> 
220 POKER,1=:POKER-22,0 <ZA4> 
230 PF=PP+1 <15> 
240 IFPFF=100THENB=B-t <1%> 
250 IFPP=390THENA=A+L <1> 
740 IFFP=SOOTHENE=B-1 <54> 
270 IFFF=7OOTHENA=AHL <42> 
250 D=INT{EHRND (LI? <19> 
2970 IFD=1 THENX=X-1 <238> 
300 EIFD=&THENX=X+1:POKER, 10: POKER+L,O <16> 
305 IFFP=200THENT2=4: T3=0:POKEIAB77, 24 <106> 
310 IFFF=400THENT2=2: T3=A: POKES6B79,27 <276> 
315 IFPP=409THENTZ=4: T3=0:POKE36B79, 24 <136> 
330 IFFP>GOOTHENGGTOLOO2O <36> 
360 POKEC,32: POKEC-22,32 <229> 
370 AsAtX: B=B+r <179> 
380 POKEA,103FOKEAH_,O:POKEB, 10: PÜKEB+L_, 

Q:X=0 <180> 
381 W=INT(RNDILI#E) +1 <142> 
382 IFW=1THENPOKEA+1 ‚BrPDKEA+1+L,0:E0TBS 

63 <193> 
783 IFW=ATHENFOKEB-1,9: POKER-1+1,0 <öb> 
394 K=INT(RND(D RA) +1 <133> 
385 IFK=1THENPDKEA+H „6: POKERA+14+L,3:60703 

‘98 <210> 
06 IFK=6&THENFOKEA+1 ‚3: POKEA+1+L,43 50103 

28 <218> 
387 -IFE=STHENFI=INTIRNDILDI#CERB-DI AH} 

>+1: POKEA+T1,T2:POFEA+TI+L,T3:G0T0308 <72> 
288 IFPP=750BRFP=77S0RPP=B000RFP=BO02SORP 
P=8050THENPOKE36879 29: POKER+1 ,13:POKEA+ 

1+L,7 <37> 
SA? PRINT. <31> 
390 IFA=B154THENA=A+1:B=B41 <7> 
400 IFB=B185THENA=A-1: B=B-1 <öß> 
410 GOSURLO00 <202> 
440 C=btY <142> 
450 IFPEEK C}=100RPEER (C} =BORPEEK (CI=FOR 

PEEK (CD) =&0RPEEK (©) =STHENLOO1O <132> 
455 IFPEEK (0) =4THENLOOLO <93> 
457 IFPEEKCI=1ZORPEEK(C-223=13THENIO000 <140> 
450 IFPEEK (2-22) =100RPEEK (E-22}-8DRPEEK f 

C-22}3 =?ORPEER (0-22) =A0RPEER (C-22) =STHENI 

0010 x9&> 
465 IFPEEK (C-22)=20RPEEK (C-223 =4THENLOOL 

o <31> 
470 POKEC ‚1: PÜKEC+L, 23 POKEC-22,0: POKEC-2 
24L,ZıY=0 <36> 
450 IFZ>OTHENGDSUBZOOO £<242> 
490 IFG>OTHENGOSUBSOOO <apir 
570 6070230 «150> 
615 REM KAPUTT! <134> 
670 FORT=GTOZ000:=:NEXT <39> 
622 PP=PP+Sc <159> 
625 FOKES6879,127:PRINT"EBLUE DOHN& SPAC 
E3}SCORE {SPACE}: "3 Pe IFPP>HPTHENHP=PP <60> 
630 PRINT" {BOHN3IHIGHSCORE SPACE) S "HP <211> 
&40 PRINT" DOHNZ RIGHTZINDCHTSPACEIMAL?TE 
SPACEILIZNN" <163> 
450 GETAF <27> 


‚11786 














660 IFA&="N"THENPRINT" ECLEARY" I NEWGIEND A773 
670 IFA$="J"THENBE-0: Z=0: B-0: BOTO1&0 <165> 
&B0 GOTO6SO <254> 
730 PRINT"LCLEAR BLUE3" 1: EOKE36079,, 27: POK 
EZ6869,240:END <166> 
9397 REM JOYSTICKABFRABE <1356> 
1000 SYS82B: IFPEEK (7B1I=OTHENY=OFRETURN  <234> 
1010 IFFEEK(781)=4THENY=Y-1 <136> 
1020 IFPEEK {71 }=32THENY=Y+1 <85> 
1029 EFZ>OTHENLOSO <A5> 
1040 IFPEEK (781}=BTHENZ=1:8=C-1 <218> 
1050 EFG>OTHENRETURN <i61> 
1060 IFPEEK (781) =BTHENB=1:F=t+22:RETURN  <57> 
1070 RETURN <1972> 
1977 REM BOMBE {POKEN UND AUF TREFFER WE 
BERPRUEFEN} i <100> 
2000 POKES-21,32 <207> 
2050 IFPEEK(SI=3THENPOKES, 11: POKES+L, 2:2 
=0: SC=SCH 10: BOSUB2Z00: POKES, 37: RETURN <1L0> 
2060 IFPEEK (5) =&THENPOKES,11:POKES+L,ZIZ 
=0: 50=56+10: S05UB2200: FOKES,32: RETURN <141> 
2065 IFPEEK (5}=2THENPOKES, 11: POKES+L,2=Z 
-0: 86=SC+10: GOSUBZ200: POKES „32: RETURN <118> 
2067 IFFEEK{SI=1STHENPOKEB, 11: POKES+L_,2: 
2=0: SC=SC+50: BNSUB2200: EGDTILOO0O <26> 
2070 IFPEEKtSI=BTHENZ=0: RETURN <170> 
2030 IFPEEK{5}=10THENZ=0:RETURN <2o2> 
2095 IFPEEK (8) =4THENZ=0: RETURN <105> 
20987 FOKFS,S: FPOKRS+L,5 x176> 
2090 8=5-1:Z=L <158> 
2100 RETURN <202> 
2200 FOKES6A7B, 15: FOKESAB77 230: FORT=1T8 
20: NEKT: FÜKESAB7B , 0: POIKE36877 „0 <114> 
2210 RETURN <S6> 
2799 REM LASER {POKEN LIND AUF TREFFER LE 
BERFRUEFEN) <175> 
2000 POKEF-44,32 <184> 
3050 IFPEEK (F}=ZORPEEK{F} =&0RPEEK LF}=ZOR 
PEEK (F}=1STHENBOSUB2700: GBTO4000 <124> 
3055 IFPREK(FI=130RPEEK (F+22) =1STHENSC=S 
C+50: S0SUR2700 : SOTOL0000 <20> 
3060 IFPEEK (F+22}=40RPEEK {F+223=30RPEEK ( 
F+22}=2THENGOSUB2Z200:5DT04010 <246> 
3070 IFPFEK (FI=BORPEEK {F}=FORPEEK {F+22) = 
BORPEEK {F+22) =FTHENB=0:RETURN <206> 
3080 IFPEEK (F}) =10DRPEEK (F+22) =1OORPEEKF 
}=40RPEEK {F+22) =4THENG=O: RETURN <162> 
3085 POKEF „7:POKEF+L,5 <45> 
3090 F=F+22: 6-1 <98> 
3095 IFF>BO1OTHENPOKEF-22,32:G=0:RETURN  <#0> 
Z100 RETURN <192> 
3799 REM TREFFER <100> 
4000 POKEF , 11:POKEF+.,2:6=0: SC=SCH10: FOR 
T=1TD10:2NEXT+POKEF „32: RETURN <132> 
4010 POKEF+22, 11:POKEF+22+L, 211=0: 50=56+ 
195 FORT=1T010: NEXT: POKEF +22, S2TRETURN <t70> 
8979 REM JOYSTICK - DATEN EINLESEN <209% 
- 7000 DATAZ4,169,0,237,17,145,41,127,141, 
13,3,169,0,141,34,145,24 ,237,32,145 <221> 
7010 DATA24,109,13,3,74,74,170,169,255,1 
41,34,148,96 <155> 
7030 FORT=OT0OS2:READI:POKEBZA+T,I:NEXT <236> 
9050 RETURN <11> 
10000 FOKEZ#B69 , 240: PRINT"ICLEAR RIGHT2 
MISSIONCSPACEICOMPLETED" : 5070422 <112> 
10010 PUKE3F4H69, 740: PRINT" CLEAR RIGHT3} 
LEIDERTSPACE VERLOREN" :GOTO622 <156> 
10020 FOKEI6BA9 , 240: PRINT" {LLEARIGIELSPA 
CEIHABENTSPACEIDASTSPACEIMYSTERYCBOHN. SP 
ACEILEIDERTSPAGE NICHT (SPACEIERWISCHT":G 
OT0622 <b> 


ENDE DES LISTINGS 


Compute mib 
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programme __.e-i6 


: 370 RESTORE440:FORT=122978TD012544: READA <9> 
330 Yayın <o> 
340 IFA>-1ITHENPOKET,A=NEXT <107> 
30 IFYS>35834ATHENI1TBO <a9P> 
Bu 360 FORT=12793T013300: READA sal> 
5370 Z=7+HA <44> 
5 





























































80 IFA>-ITHENPOKET ‚A: NEXT <149> 
a .. . 390 IFZ< >52384THEN1580 <102> 

Top-Ball ist ein Flipper Automat Verfügung um auf High-Score- | 460 RESTORE1400: FORT=125681012671:READA:POKET „Az 

mit guter Grafik und gutem Jagd zu gehen. Sind diese ver- | next <21> 


Sound. Wie ein Flipper funktio- braucht, beginnt das ganze Spiel | 410 POKEAS2A6 ‚PEEK (65286) ORI&;PRINT"TELEARFTINEW <> 















. h fi = ze===2o22==2co <i6ä4> 
niert, sollte mittlerweile allge chen von neuem. .: 430 REM=DATA'S FUER NEUEN ZEICHEN-SATZ= <182> 
mein bekannt sein. Vorsicht: Nach dem eintippen | #30 REM==--=====..-=-----somwensemeseen 21845 
Gespielt wird mit den Tasten ”Z” darf KEIN ”Renumber” eingege- | «50 DATR162,0,187,0,20R,157,0,48,189,0,209,157,0 
und mit der ”Pfund-Taste”. Insge- ben werden, da sonst das Spiel 2227202, 208, a 3, 2AB 240.245 285.127 <230 > 
- .. Fr . DI DE F 7 LI} q . 1] ’ < > 
samt stehen einem fünf Bälle zur nicht lauffähig ist. 479 DATAZS4 285. 175.31,31,175, 258,204 155 
480 DATA7,31,63,65,122,122, 244,244 <240> 
—_ı- 490 DATA224, 27489, 257,252,190,190,95,95 <176> 
T 500 DATA244,244,122,122,63,63,31,7 <Z211> 
510 DATA9S,95,190,170,252,752,248,224 <196> 
520 DATA&2,127,127,127,127,127,127,127 «197> 
530 HATAL24 254,754 ,254,254,,254,254,254 <104> 
SA0 DATA127,127,127,127,63,63,3147 <144> 
550 DATA254,254, 254,254 ,252,252,249,224 <39> 
560 DATAO,0,0,255,70,70,90,255 <32> 
570 DATAO,0,60,126,126,126,60,0 <158> 
S80 DATAO,0,3,351,63,63,127,127 <231> 
570 0ATAO,0,255,2595,235,255,255,255 <a1> 
&00 DATAO,0,192,248,252,252,254,254 <170> 
610 DATA127,127,127,127,127,127,127,127 <91> 
620 DATAZI4, 254, 754,254 254, 254,259 ,254 . <205> 
630 DATAZS2, 257 ,252,252,257,252, 252,252 <183> 
640 DATN?48,248,249,248,238,248,248,248 <193> 
650 DATA?240,240,240,240 ,240,240 ,240,240 <35> 
660 DATA224,224,2243 224,224 ,224 224,224 <93> 
&70 DATA255,255,255,255, 255,255 ,255,255 <143> 
630 bATA255,255,.255,248,224,192,128,128 <57> 
690 DATA255,255,255,0,0,0,0,0 <240> 
700 DATA255,255,0,0,0,0,0,0 <139> 
710 DATA255,0,0,0,0,0,0,0 <30> 
720 DATA?55,255,255,31,7 45, 1,1 199 > 
730 DATA124,126,110,110,126,96,96,9& <164> 
740 DATA83,63,63,63,63,63,63,6% x169> 
My lord! Dieser junge Untertan behauptet ebenfalls ein König zu sein. Er schimpft sich Flipperkänig 750 DATAS1,31,51,51,51,51,51,51 <175> 
of Sherwood. 760 DATA15,15,15,15,35,15,15,15 <181> 
. 770. DATAO,0,0,0,0,0,0,0 <220> 
780 DATAF,7,7,7,747,757 <222> 
. 790 DATA3,15,31,31,63,63,63,63 <199> 
C-i& LISTING + CHECKSUMMEN {DE v1.0) 800. DATA192,240,2489, 248,252 ,282,252,252 227? 
810 DATAGT,63,63,63,63,63,63,63 <240> 
10 REN er <121> 870 DATA12B, 192, 192,240,254,255,255,255 <176> 
zo REM # TOF-BALL C-1986 ** i <154> | #30 DATAO,0,0,0,0,255,25957,255 x93> 
Z0 REM x* ** <239> | 840 DATAO,0,0,0,0,192,252,255 <A7> 
40 REM ** WRITTEN BY *r <10> BS0 DATAS1,31,31,51,15,15,3,0 <28> 
50 REM #* ”* <13> 850 DATA?52,244 244,224 ,244,232,208,64 <230> 
&0 REM = WERNER BEMBOM .. <42> 870 DATAZSS,60,60,60,60,24,0,0 <139> 
70 REM *# “+ <33> 880 DATAZ55,15,15,15,15,15,15,7 . <81> 
BO REM *#* TEL. 20597771753 ”* <92> 890 DATA255, 253 ,254,249,224,192,128,128 <o> 
20 REM RRRRRRRBHHHHHHR TREE <201> | 900 pATABS,B5,85,40,40,40,40,40 <212> 
100 ı <158> | 910 DATAO,0,0,85,85,85,40,40 <96> 
110 r <168> | 920 DATA24,60,60,60,60,60,258,255 <214> 
120 REims=====me22men sense <117> | 330 DATA128,192,224,240,248,252,254,255 <204> 
130 REM= _KEY-TASTEN WERDEN BELEST = <107> | 940 DATA1,3,7,15,31,63,177,255 <122> 
140 REM=======- === Hser mem meer name <139> 950 DATA7,7, 7,7, 7 Fi 7,747 <1356> 
150 KEYL,"BDLDOAD"+CHR$ (34) +" TOP-BALL ZI "+CHRS (34 760 DATAZ24 224 224,224 224,224, 224,224 <138> 
+CHRF E13) +" RUN” +CHRSE (LFI <103> | #70 DATA192,96,38,24,12,6,3,1 . <70> 
140 KEY2, "LOAD" +CHRF (TAI +" TOP-BALL (23 " +CHRF (34) + 90 DATA1,3,6,12,24,48,76,172 . xi1B6> 
CHR$ LFI +" RUN“ +CHREC1FI j <176> | 990 DATA244,244 ,244 „244, 245,745, 245,245 <32> 
170 POKE6528& ,PEEK (65286) AND23F <29> 1000 DATA245, 745,245 ,245 ,245,245,245,295 <92> 
1R06 POKESE „47: V=652B0 <16> 1010 DATFAZ245,295,245,2945,244,244,244,244 <244> 
170 FOKEV+18,PEEK (V+18) ANDZSI <252> | 1020 DATA9S5,95,95,95,175,175,175,175 <194> 
200 POKEY+17,PEEK (V+19) ANDTORAHB <249>°j 1030 DATA175,175,175,175,175, 175, 175,175 <137> 
210 RESTORE450:FGRT=83?T0949: READNA: POKET „At NEXT: 1040 DATA175,175,175,175,95,95,95,75 <167> 
SYSB32: RUN2S5O . <135> | 1050 DATAO,90,90,90,255,0,0,0 <217> 
220 REN======- + re nnnesanaanmnmnnemennn <245> | 1040 DATAO,0,50,44,44,60,0,0 <213> 
230 REH= DATA’S WERDEN EINGELESEN = <221> | 1070 DATAO,126,102,102,1072,126,0,0  . <37> 
?40 REM=============2ssen onen <9> 1080 DATAO,126,60,24,176,60,24,0 <«125> 
250 POKES65,47: V=652B80 . <B&> 1090 DATA?24 , 254, 754 ,254,249,224,192,128 <179> 
260 FOKEV+18,PEEK(V+ 18) AND2S1 <67 7 1100 DATAQ,0,0,0,0,0,0,0 <39> 
270 POKEY+19 ,PEEK(V+19) ANDSORAB <64> 1110 DATAZ,7,14,50,120,248,240,224 «7> 
2B0 RESTDRE450: FORT=8%2T0B49: READA <108> | 1170 DATAL,2,43,8,15,32,64,128 . <107> 
290 X=X+A <212> | 1130 DATA12B,64,32,16,8,4,2,1 <137> 
300 FOKET,A:NEXTESYSESZZ <196> | 1140 DATA172,224,112,60,30,31,15,7 <144> 
310 IFX<>Z11STHEN1570 <130> | 1150 DATA0,0,126,255,255,120,0,0 <99> 





au Sompute miß 86 
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1160 
1170 
i1BC 
170 
1200 
i219 
1220 
1230 
1240 
12509 
1249 
1279 
"1280 
1296 
1300 
13510 
13270 
1330 
1340 
1350 
13650 
1370 
13B0 
1370 
1400 
1410 
1420 
1330 
14409 
1459 
14509 
1479 
1480 
14709 
1500 
1510 
1520 
1539 
1540 
13550 
1360 
1570 
ART „6,12, "FEHLERTSPACEI IN{SPACEIDERTSPACEIDATA-R 
EIHETSPACEI4SO"ZEND 

1580 FOKE6S286 „FPEEK (557286) OR15: PRINT" {CLEAR} "SCH 


DATAO,0,0,254,235,0,0,0 
DATA0,0,0,127,255,0,0,0 
DATAO,0,126,255,253,30,0,0 
BATA0,0,0,24,24,0,0,0 
DATAO,0,0,24,0,0,0,0 
DATA126,110,110,126, 176, 110,110,110 
DATA1L24,110,110,3124,110,110,126,124 
DATA1L26,126,96,96,95,95,126,126 
DATA1L26,126,110,110,310,110,126,17& 
DATA126,124,7&,124,124,96,126,126 
DATA110,110,110,126,125,110,110,110 
DATAS6,56,56,55,56,56,56,36 
DATAFA,95,76,96,96,96, 126,126 
DATALIS, 231 ,255,255,249,195,175, 195 
DATALFS, 277 ‚243,251 ,219,207,199,195 
BATA124,126,110,110,124,110,110,110 
DATAL25,126,76,95,126,6,6, 176 
DATAL25,126,56,56,56,56 ,56 ,56 
DATA195,195,195,219, 255, 255,231 ,195 
DATALIS, 195,231 ,176,60,56,56,56 
DATAGO,56,153,161,161,153,66,60 
DATAG,6,2,2,0,0,0,0 
DATAO,0,0,128,176,0,0,0 
DATA1LFS,195,175,195,195,195,255, 126 
DATAO,04,0,043,31,63,127 

DATAO,0,15, 255,255, 255, 255,255 
DATAO,0,240,2535,255 , 255,255, 255 
DATAO,0,0,0,192,248, 752,254 

DATA1L27 ,755, 755, 755,255, 255,255,127 
DATAQ,?231,174,60,60,126,231,0 
DATAZS4 „255, 755,255,2559,255,255,254 
DATA127,63,31,3,0,0,0,0 

DATA255 ,255,255,755,255,15,0,0 
DATAZSS, 255,255, 255,255,240,0,0 
DATA254, 252,248, 192,0,0,0,0 
DATAL26,.96,976,111,110,110,126,124 
BATAL10,110,110,110,110,126,60,24 
DATA2SS , 255,255, 255, 255,255,255,255 
REM 











ARL,10,12, "FEHLERTSPACEI INTSFACEYDEN{SPACEIDATA' 
gu . 
1570 SYEBS2:END 

ENDE DES LISTINGS 








<13> 
<20> 
£7> 
<1l1> 
<223> 
“82> 
<i1> 
<79> 
<7F> 
<19P2> 
<105> 
1573 
“2197> 
212> 
“1397 
<79> 
<249> 
1973 
<A46> 
<251> 
<h0> 
<11B> 
“184> 
<247> 
SiFR7r 
<202> 
<IP> 
<9> 
<E6> 
<132> 
<132> 
<188> 
296> 
<161> 
<127> 
<240> 
<A3> 
x238> 
<44> 
<2535> 
<64> 


“763 


“205> 
<203>? 





E-15 LISTING + CHECKSUMMEN (016 W1.0) 


RESTAREZO: FORTX=1TÜSTREADTYLTXI ENEXTTX 
DATA-39,-39,—40,—41,-41 

12-38. 9:07=39.9 
FORI1=1T010: [2=I2+. 15 14=17?%*— 1: IX ILI=IAENEXTI 


20 
209 
40 
1 

50 
1 

50 
79 
BO 
70 


FORU1=ITE10:4U2=U2+, 1: U4=U28-1: UF 1U1)=U4HNEXTU 


A=-40: B=3174:PU-0:5=-1024 

COLBRO ,1:CGLORA,12EM.OR1,15,1 

PRINT" {ELEAR}"2J=177: Pl=0: VOLB:L=5: 11-1 
MAS="IRED CK UP ST DOWN LEFT SPACEI"SBE=" RED 





DOUM CO3":D$="CSPACE RED DOHN £EET CH O5" 
109 VE-"IL.BLU S@ SPACEILFBSISPACE DOHR2 LEFT4 B 











119 





ETS D.BLUE EB CP CH CD E53 CH}" 

179 GOTO15S0 

130 GETX#: IFX$="<SPAGEI" THENISO 

140 GOTO130 

150 PRINT" TELEARF" 

150 CHAR1,16,0,"{D. BLUE FMNNNNNNNSNEINNNNNNNNNND 
170 CHARI 15,1, "FIrELLOWFVWKAYYVZZZZZZYYVAKLVID. 
BLUEIO 


180 CHAR1 ,15,2, "PEYELLOWIRTSPACEIL D-BLUEICDISPA 
EEI RED FLASHON S- FLASHOFF SPACE YELLONIPID.BLH 
E30 

190 CHAR1,16,3, "PIYELLOHISTEYAN C- L.BLH SA SB 
BPACE2 PURPLEIGISPACEIHTSPACES D.BLUEIEF CSPAGEZ 











Si je 





<B2> 
«227> 
<243> 


<17> 


<112> 
<241> 
<105> 
<145> 


<241> 


s121> 


<230> 
<194> 
<105> 
<208> 
<1RO> 
<ar> 


<24> 


programme 


REENSARLSPACE YELLONFICD.BLUEID 

200 CHARI 16,4, "P{YELLOWITISPACE L.BLU SCIRISPAC 
EZ PURPLE+I(BL.GRNIKIPURPLEIJLSPACEIO YELLOWYTID 
„BLuE>” 

210 CHAR1,16,5, "PIYELLOAHNHEYAN C- 1.BLUFPOESPAL 
E15 YELLON>_{D.RLUEID 

220 CHARI, 1646, "PIYELLOWHUITSPACE L.BIHFVVISPACEI 
2 SA SB SPACE YELLOH 5% D.BLUEIG 

?30 CHARI,16,7, "PIYELLOHHICYAN C- L.BLINVVCRFSO 
NITLANSOFF SPACEA CTRLL SPAGETIFRICYAN C- YELLOH 
S# D.BLUE}D 

249 CHAR1,16,8, "PCrELLOWIUCSPACE L.BLUIVUVUVERFS 
ACE YELLOH S® D.BLUEIG 

250 CHAR1,16,9, "PIrELLOHFTIETAN C- L.BLIIPUVISH 

SPACE BED SI L.BLü SI SH SPACESIPOLSPÄCE YELLON 

Ss“ D.BLUEIO 

260 EHAR1,16,10,"PIYELLOWISCSPACE L-BEUIIVISH SP 
270 CHAR1,16,11,"PIYELLOHFRICYAN C- L.BIU SG SH 

SPACEI2 SEIRISPACE YELLOWI"ID.BLUEIO 





























SPACE YELLONIITD.BLUEIG 
290 CHART, 16,13, "PISPACEI? YELLOW SG D.BLUEIQ 
300 CHARI, 15,14, "PISPAGEZOI® 
310 CHAR1,16,15,"PISPAGE SM SPACE YL.GRN SQ D.BL 
VE SPACE1SIG 
320 CHARI, 16,16, "PIBRN SL D.BIUEIVISPACE YL.GRH 
5@ SPACE GREENIMID.BIUE SU SPACES SX GREENIDIYL, 
GRH SPACE SR SPACE D.BIUEIO 
330 CHAR1,16,17, "FVVIYELLOWITCYL.GRN SO RED FLAS 
HUN S- FLASHÜOFF GREEN?YVID.BLUE SW SPACES SY GREE 
NIVXRED ELASHON S- FLASHUFF YL.GRN SR YELLOW ID 
.BLUE>O 


























EENFIID.BLUE SW SPACEB SZ GREENYNTISPACE YL.GRN S 
R SPACE D.BLUE}IO 





HHITE 5\ D_BLUE SP3O 

>70 CHAR1,1&6,721,"P{IRVSON SS RVSOFFIVISO HRETE 5 
YE.GRH CT SPACEIT CI WHITE S\ D.BLUE SPIVG 

3830 CHAR1,16&,22,"PVXIBEVSON 53 RUSOFEIVCSO HHITE 5 

















390 CHAR1,16,23, "P{RVSOH SS RESOFFIVCRVSON SS RW 
SOFFIVCSG MHITE S\ BL.CRN RYSOR SO RWSOFEIVESPAC 
ESIVERVSON SP RVSOEE HÄITE S\ D.BLUE SPIVERVSON 











zBLUEVUWVG 

#10 CHAR1,1,12,V#: CHAR1,6,14,W$SCHARI1 8,11," CD 
EQ ER2 CF. CLY: CHHITEILIDOHN LEFT BOHNYLCDGHN LEF 
T. BOHNIL{DOEN LEFT DOKNILIDOHN LEFT DOHNIL" 














AR1,0;24,"CCYAN CA CE CC Li CZ CS Cr CP}7000000" 
430 CHAR1,1,18," {SPACE} SPRINTTABCLY"TTELLOWIRSE 
MCDGHN LEFT43 {RVSONFILSPACE RUSOFE>>{DOHN LEFT@ 
3%+,-":POKESBSG,J 

440 COLOR1 3,0: CHAR1 „0,0, "UVYUVWESPACEIUUYT 

450 COLORI ,3,2:CHAR1,0,1," {SPALEIVISPACEIV SPACE 
VWESPAGEIVASPACEIV" 

460 COLAR1 ,3,AzCHARI „0,2," CSPACEIVISPACE?VLSPACE 
IVESPASEF VUN" 

370 COLOR1 ,3,6:CHAR1 0,3," (SPACEIVESPACEIVWVESPA 
CEIVISPACEZI" 

ABO COLORL 14,0: CHARI 52,5, "VVISR 
PALEIVASPACEZIV" 

490 COLOR1,14,2:CHAR1 ,2,6," {SC SPACEIVESPACEIVEE 
PAGEIV{SPACE SC SPACE2 SCH" 

509 COLORI,14,37CHARL,2,7,""VIRWSON CH RUSOFF SP 
BCEIFVOLSPALEI"TSPACE2I"" 

510 COLOR! , 14,4: CHAR1,2,8,"TSC SPACEIVISPACEIPIS 
PACEIEHSPACE SC. SPACE SC 

520 COLOR 14,67 CHAR1 22,7, "VVITSPACEIVESPACEIVEE 
PACEFTISD SPAGCEITISDH" 

530 GETX$: IFX&=" {SPACEI"THENSSO 























SPACE SAFVISB 5 


mE 
































540 BOTOSTO 

5509 IFPU>HCFHENAE=PU 

360 CHARI 9,24," tEYANI ":PRINTUSING" RARHRN SHOP 
U=0 “ . 

570 


THAR1,2,18,"CSPACE# DOHN LEFTS SPACER DOHN L- 
EFT4 SPACE43" 





Compute mib 


<2197 


<75> 
<30> 


<22> 
<iar> 
<87> 


<125> 
<1A> 
<205> 
<14> 
<128> 
<244> 


x1785 


“44> 


<127> 


<206> 


e2ib> 
e219> 


<16B> 
<11> 


<108> 


“7> 


<öß> 
<B4> 
“176> 
<2497> 
<168> 
<219> 
<224> 
<17> 
<22> 
<186> 
<137> 
<Dra> 
<E7> 
<t08> 
<15%4> 


<157> 


<99> 


21 


22 


programme 


580 RESTORES70:1FORD=1TO7=READN: SOUNDS „N,6350LNDZ 
‚N,A:NEXTO 

590 DATAF27,917,97297,981,911,929,953 

&00 FORI=110500:1NEXTI 

610 IFPEEK (398) =2THEN&SO 

&20 GOTO640 

&30 CHAR1 ,31,8,6$:CHAR1 ,28,22,0%:60102290 

640 IFPEEK (198) =12THENGAO 

650 G0T9670 

560 CHAR ,28,8,A$:CHARI 25,22, As: E0T02290 

670 IFPEER tB+A) <>32THENT30 

680 IFB=346ZANDA<SZTHENA=-39.8 

690 1F8=-33820RB=3737THENA=40 

700 IFB=3176THEN2240 
710 VOL.8:POKEB,32: B=B+A: POKEB+S, 115: FOKER,12 

720 G0T0&10 

730 B=INT {B} : IFB=3442 THENA=-39. 1 

740 IFPEEK {B+A} >2ANDPEEK (B+A3<7THENI13FO 

750 IFPEEK B+A) >OANDPEEK {B+A) <STHEN1450 

760 IFPEEK tB+A)=93THEN14B0 

770 IFPEEK (B+A)=92THEN1590 

780 IFPEEK tB+A}=F4THEN17BO 

750 IFPEEK {B+A)=219THENPOKEB „32: 60701870 

800 IFPEEK tB+A)=11THEN1740 

810 IFPEEK (B+A}=1010RPEEK{B+A}=1OSTHENA=1+ EOT067 
oO 
820 
70 
B30 
0710 
840 IFPEEK (B+A0)= =1010RPEEK (B+40) =103THENA=1: 6DTO 
710 

850 IFB-3170THENA=40:G60T0670 

B&0 IFPEEK tB+A) >BAANDPEEK (E+A) <PLTHENPU=PLH+ (1004 
J1)26070970 


870 IFPEEK (B+A} >71ANDPEEK (B+A)<77THEN1210 

BBO IFB=34F6THENEZFO 

870 IFPEEK (R+40)=3Z2THENA=40.50T0710 

700 IFA=40THENA=-1: 5010470 

9710 IFA=-1THENA=1:B50T0670 

920 IFA=1THENA=39: GDTBE7O 

730 IFA=SFTHENA=41: 6070670 

AO IFA=41 THENA=40: BOTDA7O 

950 1FG-STHENA=40: G=0: BDT0670 

940 A=40:6010670 

370 IFPEEK (B+A) =BSTHENLOSO 

790 IFPEEK (B+A)=B&THENI 120 

930 IFPEEK (B+A) =H7THENLOSO 

1000 IFPEEK (B+A)=BBTHEN1130 

1010 EFPEEK{B+A) «FOTHENL130 

1070 IFPEEK{B+A) =B9THENL200 

1030 U=INTERND<LI#BI +1 

1040 IFU=1THENX=1090: 7=5:50T01070 

1950 IFU=?THENX=1100: 7=7: G0T01070 

t040 IFU=STHENX=1110: Z=9 

1070 E=2#100: RESTOREX: FORT=1TH7: READA: IFPEEK (Er A 
3=Z2THENPOKER, 32: B=B+A:POKEB+S,113 

t0B0 POKEB, 12:E=E-100: S0UND1 ,E,2:50UND2,E,2rNEXT 
1: G0T02020 

1090 DATA-40,-39,-38,42,21 

t100 DATA-40 ,-37,-39,1,1,42,41 

1110 DATA-40,-39,-39,-38,1,1,42,41,41 

1120 Z=7ı X=1100:60101070 

1130 U=SINTIRNDEDIESIHL 

1140 IFL=1THENX=4170: Z=5: 50701070 

1150 IFU=2THENX=11801 2#7:50T01070 

1140 IFU=3THENX=1190: 2-7: S0T01070 

1170 DATA-40,-431,-42,38,37 

1120 DATA-40,-41,-42,-1,-1,38,39 

1190 DATA-40,-41,-41,-42,-1,-1,38,39,37 

1200 Z=7:X=1100:G0T01070 

1210 IFPEEK (B+A}=72THENFORI=BTO1STER-1:VOLI:SCUN 
D1 ,BQ0+I ‚32 NEXTI:A=1:G0701240 

1220 IFPEEK (B+A}=73THENI29G 

1230 IFPEEK (B+A) =7&THENVOLY+ SOUNDI „300,59: G60T0132 
o 

1240 U=INT (RND<13#79 +14 FORI=1TOUs IFPEEK (B+A) =32T 
HENPCKEB ‚32: B=B+1: PDKEB+5, 113: POKEB, 12 

1250 NEXTI 

1260 RESTORE1280:FORI=tTO3:READA: IFPEEK {B+A}=32T 
HENPOKER , 32: B=B+A: POKEB+S, 113: POKEB,iZ 
1270 NEXTE:PU=PU+2008] 12 50702020 

1200 DATAS2,41,40 

1270 J1=1:J1=31+1:COLOR1 „JirCHARL,1,IR, 


IFPEEK (B+A) =L040RPEEK {B+R) #1 OZTHENA=-1:60T06 


IFPEEK (B+40) =1040RPEEK {B+40) =102THENA=-1:G6DT 


"ESPACEN" 





sPRINTTABCII'HEAREDOHN LEFTSI" TRKSEONFLISPACE RVS 
- GEEYILODHN. LEFTADRH,- 








s167> 
<S5B> 
<207> 
4377 
<191> 
“119> 
<1569> 
<230> 
“72> 
xB4> 
<101> 
«141> 
<232> 
<18> 
X26> 
<184> 
<SB> 
<147> 
<12> 
<40> 
<B2> 
<52> 
<254> 


s61> 
“657 
<12> 


«2025 
<> 


<40> 


<246> 
<208> 
<210> 
<18> 
x105> 
x220> 
<Aa2> 
<b> 
«94> 
x<254> 
<112> 
x<131> 
<152> 
*195> 
xi24> 
x1895>7 
<239> 
<238> 
<z201> 
<B> 


<a? 


<7> 
<93> 
<129> 
<27> 
“66> 
<94> 
<71> 
<125> 
«179> 
<2> 
<230> 
<171> 
<218> 


“3a> 
<188> 


<177> 


A773 
<250> 


“241 > 


<51> 
<228> 


<1894> 


1300 J=J+1:POKEIBS&,J: VOLB: RESTORESIO: FORT=1 107: 
READN: SOUND „N,5: SOUND2,N,„&:NEXTI 

1310 A=40: 6070610 

1320 POKEB+40,77: FORI=1T0300: NEXTI=POKEB+40,76:5 
CUND1,100, 5: X1=0:A=-40 

1330 Ki= KiH: POKEB 32: B=B+A: POKEB+S, 113: PÜKEB,12 
ı IFA=- 39 THEN1360 

1340 IFX1=2THENA=-39 

1350 601701330 

1350 U=INT{RND(13#14) +1: FORIY=1TOU: POKEB, 32: B=B+ 
1:POKEB+5, 113: FOKEB, 12: G05UB2250 

1370 NEXTIY j 

1380 POKEB, 32: B=B+41: POKEB+S, 113: POKEB, 12: A=40: PP 
U-PL4+50008#J1:G0T02020 

1370 CHAR1,29,2,"{REDIEDIDGHN LEFTZIEF":FÜORI=BTO 
1STEP-2: VOL: SOUND1,170,3:NEXTI 

1400 FÜRI= 11020: NEXTLaFORI=BTOISTEP-24VOLI: SOUND 
1,1, 3:NEXTI 

1410 CHAR1 „27,2, "{D.BLHEIEDIDOHN LEFT2YEFVEATARL 
1} :PU=PU+3000#J LECHAR1 9, 22, " EEYANY"GPRINTUSING 
et" Pu 

1420 IFPEEK (B+A) =32THEN?1O 

1430 T1=INT<RND (1)#2) +1: IFTI=1THENA=1: 6070670 
1440 A=-1:B0T0570 

14350 PU=SPU+250%1127 A=40:VOLB: FORI=1000T070065TEF-2 
5:50UND1,1,1:NEXT: IFPEEK (B+A) =S2THENZO20 

1440 GOTOL430 

1470 IFB=31B5THENISOO 

1480 1F8=3733THENR1=1570:5U=21+:B0T01520 

1490 IFB=3748THENR 1=1580:54U=34:6DT01520 

1500 VOLB: SGUND1 „810,5: SDUND1 „695,5: PU=PU+2500#J 
1: POKEB ‚32: B=-8+1: POKEB+5, 113: POKEB,12 

1510 CHAR1,34,2,"tFLASHON RED S- FLASHOFFF"SB=B+ 
1:POKEB+B, 113: POKEB, 12:A=40: 80102020 

1520 VEILB: SOUND ,810,5:50UND1 „695,5: PU=PU+250084 
1:POKEB,37: B=B+40: POKEB+S, 113 

1530 POKER, 12: B05UBZ100 

1540 CHAR1,51,17,"{ELASHON RED S- FLASHOFF}"=B=B 
+40: POKEB+S, 113: POKEB, 12:505UR2100: RESTGRER1 


1550 FORN=1T03:READATPOKER, 32: B=B+A 

1560 PGKEB+5,113:POKEB, 12: BBSUBZ100: NEXTN: S0TO20 
20 

1570 DATA40,30,41 

1580 DATA40,37,39 

1590 IFB=3170THENCI=9700: A=40: L2=- 100:GOT01630 
1600 IFB=3570THENELT=390:A=-40: C2=100: GOTD1530 
16510 IFB=3347THENCI=B00: A=40: D2=-100: E0TO1700 
1620 IFB=3547THENEIi=500: A=-30: C2=100: GDFD1700 
1630 VOLBSFORI=1T05 

1549 Ci=C1+702:50UND1 „E1,3:5SGQUND2,C1,3 

165509 POKEBR „32: B=B+tA: POKEB+S, 113; FOKEB, 12: FORN=1T 


070:NEXTN 

1660 POKEB+5,67: POKEB, 92: B=B+A: POKEB+S,B1:PIIKEB, 
12 

1570 PU=PLM1000%I1:CHARI „9,22, "{CEYANF"TPRINTUSIN 
GH" PL 

1680 NEXTI 

1670 GOT0610 

1700 VOLE:FORI-1T02 

1710 Ci=C1+C?=SOUNDI „61,3: SOUND2,01,3 

1720 FOKEB, 32: B=B+A: POKEB+S, 113: POKER, 12: FORN=LT 
D2O:NEXTN 

1750 POKER+S ‚67: POKEB, 92: B=B+A:POKEB+5, 113: PDKEB 
‚12 

1740 POKEB,372:B=B+tAr POKEB+S,113:POKEB, 12 

1750 PU=PLH100G0#J1:CHAR1 ,9,22, " CCXYAN3 "SPRINTLSIN 
GH PLU 

1760 NEXTI 

1770 B0TO&A10 

17680 IFB=35731THEN1800 

1790 IFB=374BTHEN1890 

1800 POKEB, 32: B=B+40: POKEB+S, 113: 
100: POKEB+S, 119: POKEB, 94: B=B+40 
1810 POKEB+S,113: POKEB, 12: GGSUB2100: POKEB,32 
1820 B=B+40: POKER+S, 11%: POKERB, 12:G05UB2100: POKEB 
„SR: B=B+40 

1830 FOKEB+3,113:POKER, 12: 50SUR2100: PÜKEB,32 
1840 B-B+41:POKEB+S, 113: POKEB, 12:G0SUB2100:POKEB 
+5, 119: POKER „195 

1950 B=B+41:POKEB+8, 113: POKEB, 12: SOSUR2100: POKEB 
+5, 119: POKER, 105 

1850 B=B+41: POKEB+5, 113: FOKEB, 12: 60SUB2100: POKEB 
+3, 119: POKEB, 105 

1870 VOL: SOUND ‚500,25: 30UND1 ‚400, 25: SOUNDI „209 
„30 

1880 L=L-1:B05UB2040: POKELI „32: B0TO?110 


POKEB, 12: 6081UB2 


Compute mik 


SZ2Al> 


<74> 
<ab> 


%173> 


*220> 
<134> 
<1397> 


<o> 
<126> 


<59> 
<at> 
<17> 


<190> 
<uB> 
<79> 
735 


s252> 
<171> 
x85> 

<219> 


“1263 
<a0> 


<2A0> 
<204> 


s226> 
<x74> 


<154> 
“4> 
<127> 
x226> 
<123> 
<210> 
<133> 
<789> 
224? 


“202> 
<137> 
<1> 
<170> 
<232> 
z121> 
xA40> 
“16> 


“795 
<125> 
<B> 
or 
*96> 
<2489> 
<19&> 


2337 
<1&1> 


“623 
<181> 


«1155 
<125> 
<135> 


<219> 
“213> 





11/86 


programme 





























1870 FOKER,32:B=B+40:r POKER+5, 113: POKEB, 12: B0SUB2 :POKER, 12; GOSUB2100 x55> 
109: POKER+S, 117: POKEB, 94: R=B+40 <g7> 2140 NEXTRT:GOTO6&LO x74> 
1700 POKEB+8,115:FOKEBR, 12: GUSUB2100:POKEB,32 *251> | 7170 DRTA-41,-1,40 - <20> 
1910 B=B+40: POKEB+S, 113: POKEB, 12: 60SUB2100: POKEB 2180 RESTORE2200:FORRT=1TO3: READA: POKER, 37: B=B+A 

‚32 <169> | :POKEB, 12: GOSUR?100 <&0> 
1720 B=B+39: FDKEB+S,113: PÜKEH, 12:3 G05SUB2100: PÜKER 2190 NEXTRT:GOTOL1O <104> 
+5, 189: POKEB, 105 <238> | 2700 DATA-39,1,40 . <1Z8B> 
1736 B=-B+59%: POKEB+5 , 113: POKEB, 17=GOSUB2 100: POKERB 2210 OP=INTERNDE1I «ZI HI <216> 
+5, 119: POKEB, 105: B=B439 <105> | 2220 IFOP=1THENA=I3tINTtLORRND(1) +1): 6070470 <79> 
1940 POKEB+5,113:POKEB, 12: 50SUB2100: POKEB=+S, 119: 2230 IFOP=2THENA=HUS<INTÜLOFRND (1) +13 ):GOTDA7O <202> 
FOKER, 105 x250> | 2240 A=TY INT (S#RND{1}+1)):G60T0570 <148> 
1750 GE0T01870 <4> "2250 RETURN x96> 
1940 VOLS: RESTORE 1990: FORI=1T07: READE1 „E2: SQUNDI 2250 SV=INT (RND{1}=23+1 <14> 
‚Ei ,E2: 6GOSUBZ010:NEXTI <217> | 2270 IFGV=-2ZTHENA-404 GOTI71O «235> 
1770 PGKER,32:N=0: FORLE=1TO2904:NEKTUE: FORI=1T08: 2280 IFGV<ZTHENA=-1: 5010710 <50> 
N=N+109:PU=P11+1250*J12SOUND1 ,N,5 <36> 2290 IFPEEKtB+A}=970RPEEK (BrA)=BADRPEEK (B+4) =930 

1989 EHAR1,9,22, "TEYAN3" EPRINTUSINGTRRHRER"PUNG RPEEK (B+A) =100 THEN?2320 <11> 
DSUBZO10:NEXTI <«102> | 2300 IFFEEK (BI =97ORPEER {RB} =B40RPEEK (EI =BIORPEEK I j 
1990 DATAB10,12,739,6,7397,6,770,12,739,12, 798,12 D)=100THEN2320 za5> 
‚810,12 j <1057 | 2310 CHAR1,208,8,B$: CHAR1 25,22, B#: CHAR1,31,7,D$: 

2000 B=3174:G0T0410 <227> } CHAR1,78,21 ,D$: BOTO570 <40> 
2010 FORTA=1T010: NEXTTA:RETURN <1B1> | 2320 IFPEEK(B+A) =BXORFPEEK (B+A} =1 00 THENCHAR1,31,7 

2029 CHAR1,9,22," {CYAN} "3 PRINTUSINGSRRRER" PU <töl> | „DF:CHAR1,28,21,D$:50102210 2164> 
2030 E01T0610 <61> 2330 IFPEEK{B+A)=B40ORPEEEK (B+A) =F7THENCHART 20,0, 

2049 IFL=4THENLI1=3847= RETURN <35> A$-CHAR1,25,22,B$:G0T02210 <3> 
20590 IFL=3THENIT=3767:RETURN <54> 2340 IFPEEKtB)=BSORPEEK (B} =100THENCHAR1,31,7,D#: 

20580 IFL=?THENLI=36587: RETURN <72> CHAR1,28,21,D#: BOTO2I60 j <199> 
2070 IFL=1THENLI=3607:1RETURN “2467 | 2550 IFPEEK{B)=BA0NRPEEK (B}=97 THENCHARI „28,8,B$:C 

2080 IFL=0THENPOKE3527 ‚32: 60102070 <202> | HAR1,75,272,B$:G0T07?340 <158> 
2070 CHAR1,23,12, "TPURPLEY.ICQ CH ER SPACE CSY/E 235650 POKEB-10?4,113: POKEB, 172:60102210 <153> 
cp 693" 41,=5:B=3174:A=40:J=177:J1=1:6070130 <169> ENDE DES LISTINGS 

21006 FORI=1T1T030:NEKXTI:RETURN <65> 







2110 A=40:B=3174: J1=1:J=177 <129> 









EEFT£ SPACEAI" <119> 
2130 GETX$r IFX$=" {SPACE} "THENGOTD&S1O <214> 
2140 EDTN2136 x180> 






2150 RESTORE2170:FORRT=1T03: READA: POKEB, 32: B=B+A 











Nach dem Starten mit "RUN” 

darf die "RUN/STOP” Taste 

nicht mehr gedrückt werden, da 
sich das Programm sonst zerstört. 
Nach dem Tirelbild und der Mu- 
sik dauert es ein wenig, bis die 
neun Karten und das Brett darge- - 
stellt werden. Aufgabe ist es die 
Karten so auf das Brert zu legen, 
daß der Farbkod, bei schwarz 
weiß Geräten die Buchstaben, 
übereinstimmen. 
Die Versuche und die benötigte 
Zeit werden angezeigt. Wer es 
nach einer Stunde noch nicht ge- 
schafft haben sollte, der kann 
nach der Abfrage ”Karte” null 
eingeben. Dann werden die Kar- 

. ten so auf das Brett gelegt, daß sie 
nur noch richtig gedreht werden 
müssen. 























- 10000 Teile'waren wohl doch er- 
was viel, meine Herren! 






‚11186 CSompube anib 23 


_programme 


24 


C-1& LISTING + CHECKSUMMEN {GC V1.03 


© REM" ERETURN CLEAR HHITEF GI TSPACEITFBATSPACEIN 
ICHAELTSPACEYHEINE 

1 REM *# TITELRILD #* 

3: 

5 TRAP429: SCNCHR:COLOR4, 2,1: EOLORO,?2,1:2V=552090:P 
OKEO,O 

7 POKEV+18,PEER (VHEBI AND2SI 

37 POKEVY+197,PEEK W+19) ANDSORAB 

i1 FORT=832T0347: REARDA:FOKET „ArNEXT 

1% 5Y5837: FORT=17B00T0128359: READA:POFET „AS NEXT 
15 DATAL67,0,189,0,208,157,0,48,199,0,209,157,04 
47,202,208,241,976 

17 DATA?55 ,255,0,755,255,0, 255,259 

17 DATA1,3,0,15,31,0, 127,255 

21 DATA128,192,0,240, 248,0, 254,255 

23 DATA?55,127,0,31,159,0,3;,1 

25 DATA255,253,0,248,240,0,172,128 

27 PRINT" CCLEARY" COLOR „3,0: PRINT" TDOHNZ 5#5 SP 








SPACE2 5%#4 SPACEZ 5x4 SB}" 








"29 COLORI1,4,1:PRINT"ISPAGEI 5A SD SPACEZ 5% SPAC 





EI S# SPAGEZ Sx SPAGE3 3® SPACE2 S« SPACEZ Se SP 
ACEZ 5x SPACES $= SPAGEI S=}" 
31 COLORi,4,23 PRINT" SPACEZ 54 SB SPACEZ S« SPAC 


ES S* SPACE? S= SPACE3 5% SPÄGEZ S® SPACEZ SD SP 
ACEZ 5# SPAGES 5= SPACEI 383" 

3% ODLORI,4,3:PRINT"LSPACE 5#3 SPACE3 5% SPACEI 
Sx= SPACE2 5% SPACHI 5# SPACEZ 544 SPACEI 5*3 SPA 
CE3 S= SPACE2 SA SD LERT3" 

35 COLORI,4,4:FRINT"ISPACE SA SD S%5 
E2 S« SPACEZ 5% SPACE2 5% SPACEZ SB SPACE2 5x SP 
ACES 583 SD SPACE}" 

37 COLOR1,4,53PRINT"{SA 






































PACE2 S= SPACE3 5% SPACE2 5* SPACEA S* SPACEZ 5% 
SPACES 5% SPACE St SB SPACE}" 








SPACE> SC. SB}" 
Al COLUR1,4,5:PRINT"{DOHNZ SA S#3 


PACE3 5% SPACE? 5#5 SPACEZ 5*5 SPAUE2 5#4 SPACE 


Sg; " 


5xr" . 


Er 
49 EOLORI,4,2:PRINT"IS#E SD SPACE2 5# SPAGEI 5* 
SPACE3 5A SD SPACES SA SD SPACE4 5% SPACES S#}" 


51 COLGRI,4,1:PRINT"IS* SPACES S= SPACE3 5%* SPAC 


E2 SA SD SPACES SA SP SPACES Se SPACES S#}" 
53 COLOR1,4,0:PRINT"iS® SPACES SC S=3 SD SPACE2 




















E3MICHAELTSPACEIHEINE" 
37 
57 
al 
63 
63 
67 
697 





REM ee MUSIK ** 


DIMNIX (6) „NIE 066) „DIRIE6I „DIR (503 

1=0: VOLB: RESTOREF7 : 
READNIZ(D) „DILZELYS IFNIYEIISOTHEN?TIL 

I=1+41: 601067 

T1=1:1=0 . 

REBDN?Z TI „DPX EI}: IFNZAUIISOTHENFT 
I=1+1:6G07073 . 

11=-1: 12=--1 

IFDA POTHENSS: ELSESOUNDI „N1,0 

I1=f4+1s: IFIISTiTHENDI=B1% 11) sNI1=NIACILI ELSE 


IFN1 >OTHENSOUNDI ‚N1,300 
IFD?>OTHENFI:ELSESOUNDZ,N?2,C 
I2=12+1: D2=-D2% (12) :NZ=NZ2HIIZI 


<14B> 
<104> 
61? 


<251> 
<69P> 
x58> 
“2A7> 
“2377 
<50> 
a2 
<213> 
2317 
«175? 
<195> 


<172> 


x197> 


«9B> 


<492> 


<108> 


<1979> 


<150> 


<b9> 


x1895> 


<132> 
<221 3 
<215> 
<71> 


<4> 
<115> 
<224> 
<117> 
<107> 
“263 
<255> 
<36> 


<109> 


s1978> 
<14> 
<165> 
<24> 


«106> 
<243> 
«35? 
<AB> 


87 IFN?2>OTHENSOUNDZ2,N2,300 

71 Di=D1-1:D2=D2-1 

93 FORI=1T09#:NEXTIEF=INTIRNDC1I#16) +1: H=INTIRND 
(13*7}3 COLORO,F,Hı COLOR ,F,H: 607077 

95 VOLO 

37 DATAO,1,585,1,770,1,810,1 

97 DATA7FB,1,695,1,778,1,834,1 

101 DATABIO,2,8594,2,755,2,894,2 

163 DATA77O,1,685,1,770,1,810,1 

105 DATA798,1,685,1,798,1,834,1 

107 DATAB1O,2,770,2,000,4 

107 DATAO,1,854,1,810,1,854,1 

111 DATA770,1,810,1,595,1,739,1 

113 DATA704,2,770,2,834,7,854,2 

115 DATABA4,1,934,1,778,1,034,1 

117 DATA739,1,7998,1,693,1,704,1 

117 DATAGBS,2,739,2,8910,2,254,2 

121 DATABS4,1,810,1,770,1,810,1 

123 DATA704,2,834,2,834,1,799,1 

i25 DATA73F,1,778,1,685,2,B10,2 

4127 DATNB10,1,770,1,708,1,770,1 

127 DATA&AZ,2,798,2,810,6 

131 DATA-1,-1 

133 DATA7,2,516,4,485,? 

1355 DATRSI15,1,345,1,516,1, 596,1 

137 DATAS?71,1,345,1,57141,693,1 

139 DATA5SF6,2,516,2, 495, 2,345, 2 

141 DATAS16,1,5435,1,518,1,596 ,1 

143 DATAS71,1,345,1,571,1,645,1 

145 DATASF6,2,516,2,576,2,516,2 

1937 06TA634,1,516,1,383,1,5iös1 

147 DATA252,1,38541,7,1,16%,1 

151 DATALIB,2,262,2,453,2,571,2 

153 DATAS71,1,453,1.335,1,453,1 

155 DATA149,1,345,6,119,1,110,1 

157 DATA7,2,169,2,262,2,385,1 

159 DATA119,1,267,1,118,2,118,2 

161 DATAIH9,41, 345414 711416751 

163 DATA7,2,7,2 

165 DATAL18,1,455,1,5853,1,453 31 

157 DATASFA,G 

169 BATA-1,-1 ’ 

171 SCNCLR: FOXESS299 „208: FORE65298, 1976 

173 PRINTCHR$ 1A) 

175 GDT0437 

177 2 
1797 REM ##* PUT7ZEL ZAUBEREN #*#* 
191 = 
133 DIMPE(24) 

185 FORI=1T024: Z=INT {RND(DI#I +1 

187 IFZ=1THENPFCII="IRVSOH REDIRIRWSOFFS" 

187 IFZ=2THENP$CTI="LRYSOHR GREENIGERVSOEFY" 

171 IFZ=3THENFFEDI="RFSOH BLUEIBLRKSOFEF" 

193 Z1I=1INTIRNDIEII FD HL 

195 IFZ1=ZTHENI19F3 

197 IFZI=1THENP$SCTI=SFFEDIH"CRFSON REDIRERWSOFFY" 
197 IFZI=2THENPFEDISPFIII HF" IRVSON GREENIGIRVSDEE 
yn 

201 
203 
205 
207 
y" 
209 

















IFZ1=3THENPFTDI=PE (I) #"TRVSON BIHEIBIRVSOFF} 


Z2=&6-7-71 
IFZ2=1THENPSEII=PECHI HF" IRVSON REDIRERVSOFFY® 
IFZZ=ZTHENPS& (DI=P$ IT) H" CRVSOH GREEN}IGERVSOFF 


1FZ2=3THENP$ (EI =PE CI) H" {RVSONH BLUEYRIRVSOFF} 


z11 NEXT 
212: 
215 REM ** FUZZEL IN KARTEN ZERLEGEN ** 

215 = 

2717 K£t1)=P£tA)+P$t1)+MID$(P$ (5) „9,41 +MIDSIP$ (5) 
„5,43+MIDE(P$ (5) ,1,4) 

217 K$V)=K$ (1) +MIDE(PE () „7,49 +MIDE(P$ B) „5A + 
MIDE (P$ (B) „1,4 
221 KStD)=P$(57+P8 (23 +MIDFIPF 6} „9,4 +MIDE (PR (A) 
„3,4 +MIDEP$ (53 ,1,49 

223 K$Z)=K$ 7) +MIDE (PEN „9,43 4MIDEIPE IT) 5,4) + 
MIDSPFL9} 1,8) 

225 KE{ZI=P$ A) +P8 13) +MIDS(PE(7) „9,4 +MIDEIPE (73 
„5,33 4+MIDE(P$(7I 81,4) 

227 K$ 13) =K$ 3) +MID$ (P& 10) „9,429 +MIDE(PE(10) „5,4 
I+MIDF(P$t10) ,2,4) 

229 K£{4)=P$ tL1)+P$ (BI +MIDE(P$ 12) „9,99 +MIDE (PR 
12} ,5,4) +MIDS (P$112) „1,0 - 

231 Kt =K$ (4) 4MIDEIPEE1S) „9, A) +MIDE PS 15) 5,4 
3+MIDE(P$ (15? ,1,%) 


Sompute mib 


<1i5> 
<a4> 


s42> 
<154> 
<234> 
S73> 
s2a0> 
x7> 
ruhe 
“2407 
shs3> 
<219> 
x232> 
<27> 
<1289> 


«B3> 
x176> 
87? 
s223> 
«29> 
<28> 
<170> 
söl> 
17975 
<59> 
<174> 
<205> 
sa4> 
2447 
<71> 
<9B> 
<101> 
<43> 
<10> 
<128> 
x17> 
<120> 
*207> 
<BS5> 
<55> 
<208> 
<171> 
<10> 
<21> 
23597 
<AA> 
x239> 
<58> 
<127> 
sb2> 
<187> 
<132> 
<199> 
<ZaF? 
<28> 


«71> 
#53 
<32> 
<37> 
<102> 
x20> 
<85> 
<14> 
<13B> 
2175 
«241> 
<16B> 
<130> 
255 
x<177 
<118> 
<19> 


<117> 


186 


ME XD 32 HD 2 — „CE — — U mE 


wer TEE Tr DE 


Me u 


Vu a u — |. 1 A u 


11/86 






233 KEISI=PEOLZIEPEETI +MIDEIPELLZI „9,29 +MIDE PR 
13) „5,49 +MIDSP$ (18) „1,9) 

235 ES (EI=K$ (SI +MIDEIPSCLEN, 9,2) +MIDEIPECLEI „5,4 
I+MIDE (P£i16) „1,0 

237 KELSI=PEIFIHPELIONHMIDSCPECLA „9,2 4MIDE PS 
(143 ,5,99+MIDE(P$ (14) „1,4) 

239 KE(S)=KE (SI +MIDELPE 17) „7,49 +MIDS PET) „5,4 
P+MIDE(P$C17) ,1,4) 

241 KEON=SPEIDHPFELDI+MIDFE PS (19) „9,49 +MIDS (P$ 
(19 ,5,4)+MIDEIPRC19) „1,9) 

243 K#(7)=K$17) +MIDE PS (22) „9,491 +MID$ (P& (223 „5,4 
>+MID$ (PS (223 „1,4 

245 KSIBI=-PELITIHPECLSI+MIDECPFI2O) „7 ,AI4+MIDEPS 
{20) „5,AP4MIDEPE (20) ,1,9) 

247 KEIEI=KS CHI MIDE(PFLZZI, 9,434+MIDS (P$ (23) ,5,4 
I+MIDE(PS123) 1,90 

249 KE(M@PS 20) +PELITI+MIDFEPEC2U) „9,A)HMIDS PS 
(213,5, 49 +MIDE(P$(21) „1,9 


251 KEIM=KEEIT FNIDFEPF 24) ,9 „A)+MID$iP# (23) ,5,4 


I+MIDSE(PFL24) 1,4) 

253 3 

235 REM ## KARTEN MISCHEN ## 

257 

257 7- INT{IRND{1I#9) +1: IFZ3= FTHEN26F 
2&1 FORI=1TDF 

253 IFRCDI=ÖOTHENRTDI=7: 23=23+41: 50170257 
265 IFRIDI<>ZTHENNEKTL: ELSESOTO2SF 
267 * 

267 REM #* KARTEN DREHEN *#*+ 

271: . 

273 FORI=1T07: FORY=LTDENTICRND(1)#4) 


275 DE=SRICHTE(KFEI} „SO H+LEFTFEKFCDD 
277 KSIDD=DE:NEXTY:NEXTI 

277 : 

281 REM *#* POSITIONEN FESTLEGEN *#* 
283 +: 

285 DIMS(19}:DiMZ (19 

287 Stl)=1: 211-2: 512) =e1: 7 IDIeBEB IT) 1 Zi 
I=13:5(133=1:71143=20:5115)=7 

289. 7(1D=-2:5 1 1ls)e72: 7 L6HI=8:511NI=7r7CITI=14:5 1 
8}=7:Z (19) =20:5119=131ıZ (171 =70 

291 5(1)3=25, 7 (I)=3:5(2)3=28: 1192-5, 89-38: ZI = 
:5(43=23: 27 (4)=B: 59H) = 

ZI LT =B:5ta)=33r 7 (I =B 57-2: ZI TI 1%:50-2 
2: 7 H-1T:SCN-IT:Z1N=15 

#75 RETURN 

297 ı 

297 REM *# KARTEN DARSTELLEN +#* 

301 

303 FORI= 1TOI:KtII=10H1: NEXT: Z=Y 

305 FORI=1T07 

307 CHAR1,SIKTIYI ,ZIKCII) „VERVSON ORNG SPACE} +M 
IDE EKE CR CII 3 IS, DI HT IRFSON DRANG SPACEY" 

3507 CHAR1,S{K(I}} sZziR III +1 ,MIDFEKFIRCTDI I , 9,4 Hr" 
CRFSON GRNG SPACEZI"AHIDS(KFLRCDI) „25, 4) 

311 CHAR1,SIKCDII,ZIKCHI ) +2, MIDFCKECIRCLI I NS, Hr" 
ARFSOH BRNG SPACES}"+MIDSCKFRLDI), 27,9 

318 EHAR1,SCKITI) „ZIKCLI IHR BMIDEIKFIRCID I „L,4 4" 
TRFSOH ORNG SPACEIF"+MIDECKSRIIIF SS, 4) 

315 CHAR1,SIKUI)3 ,ZIKCDIY+4,"CRWSCH ORHG SPACEI" 
+MIDECKSIRCHII „IF, MI HMIDSIKEIREI)) „AL Ah 

317 CHAR ,StK{DD 943, Z{K CD) 3+4 ,MIDSCKFIRCTII „37,4 
IH" IBVSON ORNG SPACEI" 

317 CHAR1,SCKEII IH ,ZEKLIY I H2,STRECTI HF" CRPSBFEY" 
321 IFZ=LTHENRETURN 

323 NEXT . 

325 FORI=SITOSSCHARL,13, 11, "{RFSON L.Bitt SPACES 
RUSGEF>F" 

327 CHAR1,13,7+I,"{RFSON L.BLU SPALCES AVSOFFY" 
32# NEXT 

3351 CHAR1,13,3," ERKSON 
333 CHAR1,13,9,"CRFSON 
2 RVSDEFF" 

335 RETURN 

337 5 

357 REM #* BRETT DARSTELLEN #* 

341: 

343 PRINTCHR$ 145) : FORI=1T015 

345 CHAR ,22+1,2,"{60}":CHAR1,22,2+1," {CH} "CHAR 
8,358, Z+1, "{CG3": :CHAR1 „2241,19, "IETI"SNEXT 

347 CHARL, 25, 1," tSPIOSITIONENLSPACEH.- 9" 

347 RETURN 

351 2 

3535 REM ## KÄRTEN LDESCHEN ## 

359 8 


„123 
































t.BiU SWFERSÜCHEERVSOFFF" 
L.BIU SPACE2 SZYEITISPACE 





337 FORI=1T07 





<175> 
<236> 
<75> 
<97> . 
<75> 
<228> 
<149> 
<B9> 


<207> 


<20&> 
“55> 
x248> 
<ö0> 
249 > 
x125> 
«223> 
si159> 
797 
sr210> 
742 
AI} 
OF 
<123> 
«823 
<195> 
<d6> 
«245> 


<85> 
“26> 
<175> 


<212> 
<182> 
<100> 
<107> 
<104> 
<105> 
<169> 


x39> 
<156> 
x2> 
<113> 
<80> 


101> 
<2GE> 
<S2A2r 
<170> 


239> 
s32> 
<204> 
<33> 


<B4> 

22E> 
<140> 
<238> 
<144> 
<100> 


«102> 
<75> 

x236> 
<ı54> 
<1489> 
<158> 


<165> 








3597 CHAR1,SCKITIY,ZIK CHI) „TOSPACESY" 
351 EHARO,SCKETIF JZIK{TII + „ "ESPALESI" 
363 CHARO,SCKTIIFJZCKELI I HZ," ISPACESF" 
3653 EHARO,SIKEINI JZIK III HS" ISPACESF" 
347 EHARO,SCKCIPI „ZIK CHI IFA, "TISPACESF" 
SA? IFRCII >FPTHENSTS 

=71 CHARL,STRCEPIF+L,ZEKCII) +2, 
’» 

373 IFZ=1THENRETURKM 

3753 NEXTLI:RETURN 

377 2° 
379 REN #* KARTE ZURUECK NEUE KARTE HIN 

381 E 

393 SOSUBSSF:ECDI=1+10: 60518307: RETURN 

385 Fr 

387 REM ## KARTE DREHEN *+* 

SBr : 

391 I=k: G95UB335F: DE=-RIGHTECKEFR CK) I „12I H LEFTE CK 
RK, FI SEK (RK I=DE 

393 SOSUB307: 5070477 


"XEL.BEHF"+STRECKCI 


395: 

397 REM *#* KARTEN RICHTIG HINLEGEN »* 

397 : 

401 FORI=1T10%: GOSUBZS59: NEXT 

403 FORI=1T07:KLUII=RCI! :BOSURS67:NEXT:RETURN 
467 =: 

407 REM ** KARTEN AUSWERTUNG «* 

all: 

313 B=-T3375:K=0 


415 
417 


FORI=1T013: IFPEEK (BE+T}=PEEK (B+I+40) THENK=K+L 
NEXT: EFK=1STHENB=35753: BOTB415 

417 IFK=Z&THENE=3258: ELSE: RETURN 

421 FORI=1T05205TEP40: IFPEEK (B+ T}=FEEK {B+I+1? THE 
Nk=k+1 

423 NEXT: IFK=S9THENB=32643: 8010421 

425 IFK< S52THENRETURN 

427 CHAR1,8,0, 








EF3"SBETKEVES: IFE$=" 1" THENRUNGS 
427 FORT=1 7070000: POKE4095+1 ,00:NEXT 

431 2 

433 REM #* HAUPTEROGRAMM »= 

435 3 

437 SCNELR:COLORO, 2,17 CDLOR4,2, 1:G0SUB183:FORI=1 
TOISKEIISTINEXT: Z=9:G0SUBIS7 

437 BUSUBSOS:GOSUBS43: ZrieV=-1: TIE="000000" 

441 : 

443 REM ** SPIEL ARFRAGE ** 

485 : 

447 K=Osks= 
4 

449 NEXT: IEK=FTHENGOSUBA0F 

451 ZE=TIS:CCHARL,13,11,"{RVSON L.BLUN"+LEFTEIZS, 
2) #4" 2 "+MIDS (26, 3,2) +" "+MEDS(ZE,5,2) 

453 V=V+l:CHAR1, 14,5, 5TR$1V3 


"1233567890": FORI=1T09: IFKtII<LOTHENK 





RTEXSPACE" FLASHOFE RVSOFF SPACESI" 
457 GETKEYEF:K=INSTR (K# ,E$#} 2 IFK=0THENASS 
4537 IFK=10THENK=0: BOSUBA01:G0T0457 
461 EHAR1,25,20,"{L.BEU RUSON FLASHON SPACE SPIO 
SITIONISPACE FLASHOFF RVSOFF SPACE2}" 
463 GETKEYEF:P=INSTR(K# ES) 2 IFFSOTHENJSS: ELSE: FO 
RI=1TD7 
455 IFEOTI=SPÄANDK< >ITHENGDSUBSBS 
467 NEXT 
467 IFP=10THENF=0: I=K: 50SUB359: K (K}=K+ 10: SOSUBSO 
7E50T0447 
471 1=K:ı605UR357 
473 Ktk}=P:6G0SUR307 
475 CHAR1,25,20,"{L.BLU RYSOH FLASHON SPACE SDR 
EHENESPACE SIIFTEN SPACE FLASHÜFE RVSDERF" 
477 GETKEYES: IFE$="]"THENV=V+2GOTOSPI:ELSE: IFER 
SP"NTTHENAT7T 
4177 5010447 
BE 2 2 = 20 2.2 2 222 272 2 2 22 2273 
* COFYRIGHT BY 

MICHAEL HEINE 
SCHWER INERSTR. zZ1A 
3100 CELLE 
TEL: 05141747513 
‘Ch 199% 

EHER 
ENDE DES LISTINGS 




















ES Zu ze; 
arakkK* 


Gempure miP 


"IFLASHOH RVSON SPACE SMEUESCSPAC 
E SPIAZFEL{SPACEIÜLSTIFLSNIITSPACE RVSUFF FLASHO 


programme 


<240> 
x130> 
1325 
<174> 
1F6> 
<11> 


<x120> 
<38> 

“114> 
<180> 
<110> 
<184> 
«19> 

<188> 
<129> 
<1F72> 


«S1> 
<B> 
<17B> 
x56> 
<202> 
<167> 
<79> 
<210> 
254> 
x214> 
<10> 
«2257 
<17> 
1257 


x121> 


. x179> 


222> 


x31> 
<12> 
<Sa3#> 
2047 
s2358> 


<118> 
<144> 
<244> 
<F7> 

<248> 


x120> 
«1175 


<äl> 
s146> 


14a 
2377 
<B> 


<174> 


<193> 
SPEER 
<B6> 


<2351> 
s124> 
290> 


<161> 


<177> 
<73> 

<232> 
<RFh> 
<240> 
ASS: 
SZRFE 


werkstatt 





Es klingt wie ein Scherz, went: je- 
mand sagt, er habe ein Programm 
geschrieben, das den ohnehin 
schon knappen Basic-Speicher des 
C-i16 in zwei gleichgroße Bereiche 
aufteilt. In jedem kann ein Pro- 
gramm geladen, und beide unab- 
hängig von einander gestartet 
bzw. bearbeitet werden. 


So entstand dieses Programm 
auch eher aus sportlichem Ehr- 
geiz, als im Hinblick auf eine be- 
stimmte Anwendungen. 


Dennoch erweist sich die Speiche- 
raufteilung als nützliches Hilfs- 
mittel. So kann man bei der Pro- 
grammentwicklung beispielswei- 





se, ein anderes Programm im 
zweiten Speicherbereich bereit 
halten und Teile daraus mittels 
Bildschirmeditor übernehmen. 
Das spart Arbeit und Zeit. Oder 
man hält, während man im ersten 
Bereich Vokabeln paukt, ım 
zweiten Bereich ein kleines Spiel- 
chen parat, um zur Entspannung 
bin und wieder mal umzu- 
schalten. 


Seine volle Stärke erweist der 
Speichersplit denjenigen, die Ih- 
ren C-16 auf volle 64 K ausgebaut 
haben. Sie müssen allerdings die 
Bereichsgrenzen abändern, was 
aber aufgrund des ausreichend do- 


C-1& LISTINGS + CHECKSLUMMEN (0E 01.0) 


10 REM SPEICHERSFLIT <2075 
20 REM {03 B.LÄLUER, NUERZBURG <131> 
30 =: xB9> 

40 2 x98> 

50 Al=15:REM ANFANG i=2548*16+1 =4097 sıl?> 
&0 E1=397: REM ENDE 1=256*40-1 =10237 <11> 

70 AP=40: REM ANFANG 2=756#40+1 =10241 <115> 
80 E?=43: REM ENDE 2=256%54-1 =163853 x20> 

90 12 <148> 
190 x x158> 
110 READ A:POKE2Z1IG,A <1976> 
120 FORI=6T027:READA=POKELOLS+T,A:NEXT 2355 
139 2 <1B8> 
140 : <199> 
150 REM DATAS ENTHALTEN Al UND Ei £<73> 

180 : x218> 
170 DATA1i,1,16,3,16,3,16,3,16,244,37,244,597, 246, 

397 <BA> 

1909 + 238? 
190 : x2487 
200 REM DATAS ENTHALTEN AZ UND E2 «1627 
210 s j \ <12> 

zZ20 DATA 1,40,3,30,3,40,3,40, 246,63, 244,63,246,6 

3 835° 

230 3 x32> 

240 a4 “423 

250 REM MASCHTNENPROGRAMHM £171> 
280 > sa3> 

270 FORI=1T095: READAF:A=SDEC (AS) PODKEI1629 HT „A:NEX 

T 2307 
280 DATA 78,45,D8,09,01,F0,05,40 2305 
290 DATA B5,06,49,02,85,08,92,00 <4aR> 
300 DATA B5,2B,9D,F7,03,EB,E0,0E x255> 
310 DATA DO,F%a,A2,00,BD,05,04,95 Bere r 
370 DATA 2B,EB,E0,0E,006.F6,58,50 <iil> 





kumentierten nicht 
schwierig ist. 

Nach dem Eintippen des Basic- 
Ladeprogrammes ist es ganz 
wichtig, dieses zuerst abzuspei- 
chern, denn es löscht sich selbst, 
nachdem das Maschinenpro- 
gramm generiert wurde, 

Wer da meint, das sei doch halb 
so wild, wenn er es mit Taste Fl 
(Old) wieder herstellen kann, hat 
recht - allerdings nur sofern er 
sich keinen Tippfehler erlaubt 

at. 


Das Maschinenprogramm belegt 
keinen Basic-Speicher, so daß mit- 
tels F8 (HELP) zwischen zwei je 


Listings 


330 DATA A9,01,85,08,A2,00,B5,2B <25> 
340 DATA 9D,05,04,E8,E0,0E,DO,F& «i3> 
350 DATA A?,00,BD,F7,03,95,7B,E8 <157> 
360 DATA EO,0E,D0,F6,59,60,A5,08 <127> 
370 DATA L9,01,D0,08,49,3F,85,34 <195> 
375 DATA 85,38,895,30,60 <87> 
380 : <183> 
390 a «1955 
400 REM FUNKLONSTASTENBELEGUNG 2375 
410 4 £X213> 
420 3 “2233 
422 : <225> 
425 REM PLATZ SCHAFFEN 2555 
427 KEYZ,""SKEY 4," "KEY S,"" 273 
430 REM OLD FUER SPEICHERBER.i = Fi <158> 
440 KEY1,"P{3074099,1:58Y534849: 8Y834892" +EHR$ 13 

> x13r 
450 = <253% 
460 REM OLD FUER SPEICHERBER-? = F2 «253% 
470 KEY2,"P(50310242,1:5Y934940:5Y554892"+CHRE (1 

3 <251> 
480 : <27> 
482 ı “29> 
485 REM WIEDER NORMAL {NUR AUS BEREICH 1 

= Fö <1257 
407 KEYS, "SYS1700:P{503194, L:KEYB, "+CHR# (34) +CHF 
STH" SPFRECKI "+HCHRS LS <78> 
390 REM UMSCHALTEN ZWISCHEN DEN SPEICHER BERE 

ICHEN = FB (HELP) <54> 
500 FEY 8,"8Y51530:P{803194,1: ?PiSE} (216) „FRE IK 
"+CHREI1S) 298> 
Ssi1o s <S7> 
S20 : <bB> 
530 REM POKEWERTE = Ei <48> 


540 FOKESZ,39: POKES4 „39: FOKES6 , SPI NER 


ENDE DES LISTINGS 


6K großen Speicherblöcken hin 
und her geschaltet werden kann. 
Nach jedem HELP-Tasterdruck 
meldet der Computer in welchem 
Bereich man sich nun befindet 
und wieviele Bytes hier noch frei 


sind. Alle Bsic-Kommandos 
(RUN, LIST, LOAD, RENUM- 
BER, NEW usw.) beziehen sich 
von nun an ausschließlich auf den 
Speicherbereich in dem man sich 
gerade befindet. 


In den ursprünglichen Zustand 
zurückschalten kann man mittels 
Taste F6 (nur von Bereich 1 aus). 
Dabei geht das im Bereich 2 ste- 
hende Programm verloren. 


“Br 





'@16| Schieberoutine 


Diese kurze Routine verschiebt auf komfortable Weise defı- 
nierte Speicherbereiche in jeden gewünschten Adressraum. 


Compuhe mib 
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u" u _4uı per 5 vu A TE A RE 


ä 





nm 


Br Ga | 





_  Schieberoutine® 


C-16& LISTINGS + CHECKSUMMEN (GE v1.03 


10 REM SCHIEBE-ROUTINE GENERTEREN W.10 


20 REM R.-E. MUELLER 
0 REN 74.08.86 


“P> 
<x196> 
SPOL> 


40 SCNELRSFRINTTAR SI "EDGHNZ2 RYSONISCHIEBE-ROUTI 


NEISPACEIGENERITEREN{RFSOEF. DOHRNE" . 
50 INPUT"ADRESSETSPACEISCHIEBE-ROUT. (HEXI E "AS 
&0 INPHT"ANFANGS-ABR. DESISPÄCEHPRER. {HEXI "A 





«55> 
xttl} 
337 





70 INPUT"END-ADR. {SPACEIDES SPADEFPRER. TSPACEY CH 





EX+1):"s0$ 


x230> 


80 E=BEELC$) EF=DECIBF) SG=E-FrG$=HEXF (G) HPRINT:PR 


INTTABC12IDEC{G$} "(SPACE BYTES" 
70 INPUT" {DOHN>ANF-ADR. D. ZIELSTANDORT (HEX) 2"; 7# 
100 Ri1=PEC(Z$} : D2=DEL (G$} :D3=D1+DZ: DF=HEX$1D3) 


<71> 
<138> 
<B89> 


k1O INPUT" TDOHNIMIT{SPATEFAUTO-STARTISPACEN CA/N) 


s"ıF$ 


120 IF FECY"N® AND FR<CH"IUTHEN PRINT" CUP3F"AGOTO 


2B35> 


programme 


116 
1390 IF Ft="N" THEN F1=0 
14G IF Fs="1" THEN Fi=-t 


DATA AF,FR,05,5F ,A9,FF,85,60,47,FF 
DATA 85,5A,A9,FF,85,58B,A9,FF,95,58 
DATA AF,FF,95,597,20,07,88,80,FF,FF 
DATA FF,FF 
VESDEC(AF) 2FORI=0 TO F1:READ HEE 
FOKE VE+I,DECCHEF) SNEXTL 
BA+=RIGHT# 1B#,7) :B1$=MIDF {BF 1,73 
C2$=RIGHTF(C#,2) EC1#=MID#IC#,1,2) 
D2$=RIGHT$ (D#, 2) 2D1$=MID$ {D$,1,2) 
FOKE VE+1,DEC (B?$) :FOKE VE+5,DEC(BIS} 
PÜKE VE+ 9,DECICZS)ıPOKE VE+HLZ,DEC(D1F) 
POKE VE+17,DEC(D2#) :POKE VE+21,DEC(DI#) 
X1=DEC (D$) + X2=DEE (B$) = KI=KL-K22 NASSHEXE NZ) 
ZBG XSS=RIGHT#IXAF,2)  Kö$=MIDE(X4E, 1,2) 
90 IF Fi=t THEN FÜKE (VE+26) +1,76: POKE (VE+ZEI +2, 
DEC (X5#) : POKE {VE+26) +3, DECIXA$) 
300 FRINT"FERTIG" 
z10 PRINT" CROHNIAUFRUF CSPACEIDERSPACEISCHIEBERE 
UTINE: CSPACEFSYS"DECAF) 

ENDE DES LISTINGS 


220 
2% 

240 
250 
Z60 
270 





1743 
<1BSE> 
e1a1> 
12535 
1537 
<128> 
<7l> 

15905 
“2457 
25 

APFE 

212973 
Eh 

<2350> 
<12E> 
<290> 
x167> 


<120> 
s239> 


<A3> 








Die Weltraumüberwachungsbe- 
hörde hat den Anflug feindlicher 
Flugobjekte auf die Stadt Atlantis 
gemeldet, Ihnen als Commandanı 
der Verteidigungsbatterie obliegt 
es nun, den Untergang der Metro- 
pole zu verhindern. Eine veran- 
twortungsvolle Aufgabe, die Ih- 
nen mit Sicherheit viel Schweiß 
und schlaflose Nächte bereiten 
wird. 


Zur Verteidigung von Atlantis 
stehen Ihnen zwei Kanonen, die 
diagonal und eine Kanone, die 
vertikal schießt zur Verfügung. 
Die Ufos kommen in verschiede- 
nen Wellen; die jeweils aus 60 Flu- 
gobjekten bestehen auf Ihre Ver- 
teidigungsstellungen zu. Jeder 
neue Angriff ist schwieriger zu 
meistern, da sich der Anteil der 
schnelleren Ufos ständig erhöht. 


11/86 


Die feindliche Attacke erfolgt auf 
mehreren Ebenen, erst in der letz- 
ten Ebene gerät Ihre Stadt wirk- 
lich in Gefahr vernichtet zu wer- 
den. Insgesamt besitzen Sie drei 
Städte, falls auch die letzte 
menschliche Ansiedlung vernich- 
tet wurde, versuchen die Bewoh- 
ner aus Atlantis zu entfliehen. 
Verhindern Sie mit allen Mitteln, 
daß es soweit kommt. 


Joysticksteuerung (Port 2): 
Feuer + rechts = rechte Kanone 
schießt / Feuer + links = linke 
Kanone schießt / Feuer = mittle- 
re Kanone schießt Punktwer- 
tung: langsames Ufo = 20 Punkte 
mittelschnelles Ufo = 50 Punkte 
schnelles Ufo = 100 Punkte Bei 
erfolgreicher Abwehr einer An- 
griffswelle erhalten Sie 1000 
Punkte gutgeschrieben. 


1777 
ATLANTIS -— 
Ein Actionspiel 


für Ihren 


Commodore 64 


C-544 LISTING + CHECKSUMMEN {TC 91.99 


10 REM 
11 REM 
12 REM 
13 REM 
14 REM {03 
15 REM 

16 REM 

17 REM 

18 REM 

17 REM ZUR EINGABE: 
20 REM - mn 
21 REM 
22 REM 
25 REM 
24 REM 
25 REM 
26 REM 


ATLANTIS 


1784 BY ZUHEIR URWANI 


THOMAS KEUCHEL 


28.7.86 - 3.8.86 


FOKE 44,37:POKE 8192,0:NEW 
DIESES PRIGRAMM EINGEBEN 

ZUR SICHERHEIT ABSPEICHERN 
RUN 

ABSPEICHERN: 

27 REM - SAVE "ATLANTIS",S BZW. 

28 REM - SAVE "ATLANTIE" BZW. 

29 REM - 8 "ATLANTISE" {TURBO} 

30 REM RUN 

31 REM 

100 : 

110 PRINT "{LLEAR DBOHNZIATLANTISTSPACEF I" 
120 PRINT "tDOHN}BITTEISPACEIGEDULDTSPAGEF ISPAC 
Er<ZURTK) " 

130 FOR I=204B TO #108 STEP 609 

135 S=0:FOR J=I TO 1+59 


“ 
DW were 


a 











Compubs mi 


<155> 
xZ24> 
<B6> 
<154> 
<248> 
<167> 
x157> 
<i20> 
<161> 
<«135> 
<1417> 
<164> 
sa3r> 
“BP> 
x30> 
2495 
<1a2> 
<ı194> 
<165> 
za3> 
<i> 
x174> 
2159> 
<18357 


<x162> 
<x46> 
<106> 


27 





























































28 


programme 


"1030 DATA 


140 
150 
1409 
170 


READ AzPOKE J,Ar8=5+A 

NEXT JsREAD VelF V<C>S THEN 200 

PRINT "IHOREI";B108-I; "{LEFT, SPACEI"SNEXT I 
FOKE 45,208: POKE 46, 31:10LR 

180 FOKE 44,8: PRINT" {CLEARIDK. DOWN? "LIST 

200 PRINT"{CLEAR DOHN2 RIGHTZI>>>TSPACEIDATAISPA 
CEIERRÜRLSPACEFINTSPACEN" 

210 Z=PEEKtA3I+25S#PEEK (64) 




















220 PRINTZ-4,"-"ıZ:END 

997 7: 

998 REM -omumen--- DATEN +-- en 

997 3 » 

1000 DATA 000,037 ,009,174,007,159,032,050,028,05 
4,055 ,032 

1001 DATA 032,046,009,032,070,044,085,082,087,06 
71078,073 

1002 DATA 032,038,032,084,045,0758,069,0895,067,07 
2,069,075 

1003 DATA 000,000,000,169,121,133,253,169,019,13 
34,254 ,167 

1004 DATA 000,133,251,167,172,133,252,140,000,17 
7,253,145,5531 


1005 DATA 251 ,230,253,209,002,230,254,230,251,20 
8,002,230 

1005 DATA 2572, 165,251 ,201,087,208,234,165,252,20 
1,205,208 

1007 DATA 229,169,134,133,253,169,008,133,254,16 
9,192,133 

1009 DATA 251,169,053,133,252,160,000,177,253,14 
5,251 ,230 

1007 DATA 253,208, 002, 230,254,230,251,208,002,23 
0,252,168, 11112 

1010 DATA 251,201,179,209,234,165,252,201,063,20 
6,228,076 

1011 DATA 000,192,000,000,000,000,000,000,000,00 
0,000,000 

1612 DATA 020,000,000,105,000,001,165,064,134,14 
9,082,099 

t01% DATA 085,085,119,119,117,093,221,221,021,08 
5,083,001 

1014 DATA 0893,064,000,105,000,000,000,000,000,009 
0,000, 000,4772 

1015 DATA 060,000,000,000,000,000,000,000,000,00 
0,000,000 
1016 DATA 
0,060,000 
1017 DATA 
0,098,000 
1018 DATA 
5,193,128 
1019 DATA 013,207,240,007,252,216,003,128,204,00 
7,128, 108,3008 

1020 DATA 007 ,000,098 ,015,000,049,014,000,048,03 
0,000,025 

1021 DATA 124,000,030,120,000,014,000,000,000,00 
0,000,000 

1022 DATA 000,000,000,000,000,056,000,006,055,00 
0,006, 056 

1023 DATA 000,003 ‚056 ,000,001,255,192,000,056,07 
6,000,056 

1024 DATA 000,000,056,000,000,056,000,000,054,00 


0,000 ,056, 1690 

1075 DATA 000,000,056,000,000,055,000,000,124,00 
0,009 ,,252 

1026 DATA 000,003, 208,000,031,135,128,126, 001,24 
0,000,000 

1027 DATA 000,000,000,000,000,000,028, 000,000,05 
4,000,000 

1028 DATA 099,000,000,097,000,000,195,000,000,19 
5.000,000 

1027 DATA 195,000,000,071,000,000,102,000,000,10 
2,000,000,7498 
038,000,000,044,000,000,060,000,000,12 


600,000 ,000,000,000,000,000,000,000,00 
000,052,000,000,118,000,000,118,000,00 


000,227,000,000, 227 ,000,024,225,000,02 


6,000,000 
1031 DATA 
0,240,062 
1032 DATA 
9,000, 000 
1033 DATA 
0,000,000 
1034 DATA 000,000,000,000,000,080,000,063,108,00 
0,113,224,1967 

1035 DATA 000,192,724,000,192,076,001,128,096,00 
1,128,096& 

1054 DATA 001,128,094,001,1728,094,000,192,096,00 
0,224,228 


230,000,001,199,000,00%,131,192,015,00 


000,000, 000, 000,000, 000,000 ,000,000,00 


000,060 ,000,000,000,000,000,000,000,09 


<101> 
<145> 
<210> 
<142> 
<353> 
<255> 
<136> 
<77> 
<34> 
<176> 
<36> 
<236> 
<78> 
<4> 
<t40> 
<2477> 
<251> 
<1b&> 
<30> 
<26> 
<200> 
<B7> 
<210> 
<153> 
<195> 
<99> 
<129> 
«132> 
<155> 
<191> 
<122> 
<174> 
<99> 
x229> 


<«<113> 


x227> 
<173> 
<121> 
<7> 
<203> 
<186> 
<a0> 
<101> 
<1899> 
<148> 
<236> 


<227> 





1037 DATA 001,179,184,015,0%0,024,000,000,000,00 
0,000,000 

1038 DATA 000,000,000,000,000,000,000,000,000,00 
0,009,000 

1037 DATA 000,000, 000,000 ,000,000,000,000,000,00 
0,000,000,2777 

1040 DATA 000,000,000,000,001,225,240,003,187,05 
6,007,030 

1041 DATA 028,006,012,012,006,012,012,006,012,01 
2,006, 012 

1042 DATA 012,004,012,012,014,012,012,028,030,00 
7,000 ,000 

1043 DATA 000,000,000,000,000,000,000,000,000,05 
6,000,005 

1044 DATA 056,000,006,056,000,003,056,000,001,25 
5,172,000,1717 

1045 DATA 056,096,000,056,000,000,056,000,000,05 
6,000 ,000 

1044 DATA 056,000,000,056,000,000,056,000,000,05 
5,000,000 

1047 DATA 124,000,000,252,000,003,206,000,031413 
5,120,126 

1048 DATA 001,240,000,000,000,000,000,000,000,00 
0,000,000 

1049 DATA 009,254,000,003,085,128,000,2544000,00 
0,000, 000,2514 

1050 DATA 000,000,000,000,000,000,000,000,000,00 
0,016,000 

1051 DATA 000,055,000,000,040,000,000,044,000,00 
0,0&8,000 

1052 DATA 000,068,000,000,198,000,000,198,000,00 
1,130,000 

1053 DATA 003,003,000,014,001,2724,000,000,000,00 
0,000,000 

1054 DATA 000,000,000,000,000,000,015,000,000,04 
8,000,000,1128 

1055 DATA 224,000,007,192,000,062,000,000,112,00 
0,000,096 

1056 DATA 000,000,240,000,000,170,000,001,143,12 
8,001 ,000 

1057 DATA 192,003,000,095,003,000,048,008 ,044,0& 
8,004,096 

1058 DATA 694,012,112,192,024,063,128,048,014,00 
0,000,000 

1059 DATA 000,000,224,248,252,254,254,255,255,25 
5,000,000,4642 

1080 DATA 000,128, 128,172,224,248,000,,000,000,00 
1,001,003 

1061 DATA 007,031,007,031,063,127,127,255,255,25 
5,000,000 

1062 DATA 000,178,192,224,112,056,028,008,028,00 
7,063,127 

1083 DATA 255,204,029,030,063, 285 255,255, 285,23 
1,056,01& 

1064 DATA 056, 144,252,254,255,051,000,000,000,00 
1,003 ,007 ,5994 

1065 DATA 014,028,056,120,252,255,253,255,255,23 
1,000 ,252 

10655 DATA 046,064,120,064 , 066, 252,000 ,000,001,00 
1,001,001 

1067 DATA 225,065,000,000,128,128,128,128,435,13 
0,000,007 

1068 DATA 031,048,112,102,198,199,285 „255,000,02 
4,216,219 

1069 DATA 219,255,000,224,248,028,006,102,099,22 
7,001 ,014,6765 

1070 DATA 049,067,1433,255,127,063,255,031,127,25 
5,255,255 

1071 DATA 255,255,128,240,257,754,755,755,254,25 
2,000,024 

1072 DATA 024,000,000,024,024,000,000,050,064,13 
6,130,130 

1073 DATA 132,120,000,024,048,080,016,018,020,05 
6,000,124 

1074 DATA 130,002,060,064,130,252,000,120,132,00 
72,028,002,6451 

1075 DATA 130,124,000,030,040,072,136,252,008,02 
8,000,254 

1076 DATA 130,128,124,002,130,174,000,060,046,12 
8,188,194 

1077 DATA 132,120,000,254,132,008,016,016,01&,05 
&,000,120 

10738 DATA 132,130,124, 130,066 ,060,000 ,060,066,13 
4,122,002 

1677 DATA 132, 120,000, 252 ‚066,,068,120,064,064,22 


4,000 ,226,5590 


Gompute miß 





<211> 
<153> 
<78> 

<43> 

<143> 
<230> 
<113> 
2122> 
<195> 
<a5> 

<225> 
<207> 
<241> 
<216> 
<1A3> 
<110> 
<233> 
<201> 
<219> 
<234> 
<208> 
<120> 
<234> 
<254> 
<29> 
<134> 
<233> 
<217> 
a1n 
<68> 
<184> 
<3> 

«226 > 
<a3> 
<120> 
<10> 
<204> 
<160> 
<38> 

<12> 

<157> 


<197> 


118 


1186 


1080 DATA 045,066, 064 ‚0644 ‚068, 055.,000,000,000,00 
0,000,000 

1081 DATA 000,000,000 , 224 ,082,082,074,074,070,13 
0,.000,114 

1082 DATA 164,040,098 ,040,036,114,000,254 144,01 
6,016,016 

1083 DATA 024 ,032,003,015,030,056,051,113,097 ,07 
7,255,255 

024 DATA 000,000,172, 129,129, 1298,192,240,120,02 
2,012,014, 4380 

1085 BATA 006,006,097,225, 193, 195,195,195,195,17 
5,128,159 

1086 DATA 143,207 ,207 ,207 ‚207 ,207 ‚006,247 ‚227,22 
71227,227 

1087 DATA 227,227,195,199,199,199,197 ,207 ,207,20 
7,207 ,239 

1086 DATA 223,223,223,191,191,191,227,227 ,293,24 
3,243,251 

1087 DATA 251,251 ,000,000,000,000,000,028,120,25 
5,036,056, 10293 

1090 DATA 072,072,036,035,018,018,000,000,000,00 
0,016,.074 

1091 DATA 056,1724,032,049,116,118,126,255,255,25 
5,065,225 

1092 DATA 067,231,079 ,255,255, 206,130, 135,1974,23 
1,242,255 

1073 DATA 255,115,001 ,003,006,012,008,011,010,01 
1,128,192 

1094 DATA 096,048,016,208,080,208,010,010,027 ,04 
9,039,103, 5893 

1095 DATA 193,143,0890,080,216,140,229,230, 131,24 
1,143,129 

1096 DATA 159,159,129,191,191,129,241,129, 249,24 
7,129,253 

1097 DATA .253,127,000,124,130,128,158,132,069,06 
0,000,030 

1078 DATA 054,068 ,252,0658,069,136,.000,198,170,14 
6,145,150 

1099 DATA 150,054 ,000,000,000 ,016,000,000,000,00 
0,000 ,225,7230 

1100 DATA 066,066 ,065,069,040,016,000,252,066,06 
8,120,068 

1161 DATA 066,226,000,000 ,000 „000 ,000,000,000,00 
0,000,000 

1102 DATA 000,000,000,009,000,000,000,000,000,00 
0,000 ,000 

1105 DATA 000,255,192,000,049,000,000,012,000,00 
0,003 ,042 

1104 DATA 128,010,233,096,250,169,088,090,170,17 
1,251,235,3451 

1105 DATA 235,010,170,148,000,000,000,000,000,00 
0,000,000 
1104 DATA 
0,009,000 
1107 DATA 
0,000,000 
1102 DATA 
0,012,000 
1107 DATA 000,048,002,158,172,009,107,160,037,10 
6,175,234,2071 

1110 DATA 170,155,235,255,239,042,170,160,000,00 
0,000,000 

1111 DATA 090,000,000,000,006,000,0060, 000,000 ,00 
0,000 ,000 
1112 DaTa 
0,000,000 
1113 DATA 
0,000,000 
1114 DATA 000,000,000,001,085,054,021,170,0B4,10 
6,255, 169,2391 

1115 DATA 191,215,254,104,215,169,021,170,084,00 
1,095,064 

1114 DATA 000,000,000,000,000,000,000,000,000,00 
0,000,000 

1817 DATA 600,000,000,000,000,000,000,000,000,00 
0,1858,000 ' 

1118 DATA 000,152,000,000,152,000,000, 168,000,00 
0,000 ,.000 

1117 DATA 000,000 ,000 ,000,000,000,000,000,000,00 


0,000 ,000 ,2215 

1120 DATA 000,000,000,000,000,000,000,000 ,000 ,,00 
0,000,000 

1121 DATA 000,000,000,000,000,000,000,000,000,00 
0,000,000 

1122 DATA 000,000,000,,000,000,000,000,000,000,00 
0,000,000 


000 ,000,000 ,000 , 000,000 ,000, 000 ,000,00 
000 „900,000, 000 „000,000 ,000,000 ,000,00 


000 ‚000, 000,000 ,000,060,003,255,000,00 


000 ,000,000,000,000,000 ,000 ,000 ‚000,00 


000,000,000,000,000,000,000 ,000 ,000,00 


x160> 
<57> 
<129> 
x234> 
<110> 
<Z2B> 
<255> 
<40> 
2433 
<18> 
<252> 
<29> 
<3a> 
<205> 


<a7> 


<94> 


<22> 
<175> 
<47> 
x40> 
<185> 
<7&> 
<217> 
<141> 
<37> 
<o7 > 
<x221> 
<222> 
357 
<127> 
<176> 
<226> 
<a27> 
<228> 
<243> 
<101> 
<231> 
<ila> 


<147> 


<253> 
2335 
<2356> 


2377 


programme 


11253 DATA 000,000,000,000,000,000,003,000,032,04 
8,000,002 

1124 DATA 000,032,048,008,194,008,131,000,000,00 
0,080, 200,745 - 

1125 DATA 042,038, 038,149, 150,007,087,088, 138,10 
1,168,009 

1126 DATA 087,09, ‚037 ,162,096,010,137,098,192,01 
0,160,012 

1127 DATA 128,012,000,012,128,008,048,012,000,00 
0,000,000 

1128 DATA 000,000,000,000,000,000,000,000,000,00 
0,000,000 


1129 DATA 000,000,000,000,000 ,000,000,000,192,00 


0,195, 000, 295% 

1130 DATA 048,000, 128,000,042,000,008,166,035,00 
0,153,128 

1131 DATA 050,102,168,002,153,128,008,034,000,00 
0,000,130 

1132 DATA 000, 128,000, 012,000,012,000,012, 192,00 
0,000 ,000 

1133 DATA 000,000 „000,,000,,000,000,000,000,000,00 
0,000,000 

1134 DATA 009,000,000,000,000,000,000,000,000,00 
0,000,000,1839 

1135 DATA 000,003,000,000,000,012,000,130,002,00 
0,000,096 

1134 DATA 049,048,019,000,002,000,000,048,008,17 
2,000,192 

1137 DATA 090,000,000,000,000,000,000 ,000,000,00 
0,000,000 

1138 DATA 000,900,000,000,000,000,000,000,000,00 
0,000,009 

1157 DATA 000,000,000,000,000,000,000,000,000,00 
0,000,000,800 

1149 DATA 000,000,000,000,000,000,000,000,000,08 
5,000,008 
114: DATA 
5,084,017 
1142 DATA 125,068,016,085,004,014,020,004, 188,02 
0,042,032 


125,084 ,007 ,255, 208,005, 235,080,021,12 


1193 DATA 009 ,008,090,000,000, 000 ,000,000,000,00. 


0,000 ,000 

1144 DATA 000 ‚000,000 „000 ,000, 000,000,000,000,00 
0,000,000,1720 

1145 DATA 000,000,000,000,000,000,000,000,000,00 
0,091 ,000 

114& DATG 000,000,000,200,000,031,255,000,000,00 
0, 000,000 

1147 DATA 005,006,007 ‚097 ‚006,002 ,002,002,002,00 
2,002,002 

1148 DATA 002,000,000,000,000,000,003,050,004,00 
0,000,000 

1149 DATA 000,000,000,000,000,000,000,000,009,00 
0,000,000,58B 

1150 DATA 000,000,000,000,000,000,000,000,000,00 
0,000,000 


°1151 DATA 000,000,000,000,000,000,000,000,000,20 


8,007,615 
1152 DATA 007,003,064,008,037,007,003,024,138,14 
4,007 ,003 

1153 Data 136,007 ‚006,007 ,003, 104,008, 122,007 ,00 
2,248,008 

1154 DATA 140,007 ,003,032,008,032,032,032,032,08 
2,032,032,1747 

1155 DATA 
2,011,012 
1155 DATA 
2,032,032 
1157 DATA 
7,032,032 
115B DATA 
2,032,032 
1159 DATA 032,032,049,050,032,032,032,032,032,03 
2,032,032,1811 

1160 DATA 032,032,032,032,032,052,032,032,005,00 
6,007 ,076 

i1&1 DATA 096,096,000,045,045,0453,045,045,045,04 
5,045,045 

1162 DATA 045,045,045,045,045,003,096,076,000,08 
5,045,045 

1143 DATA 045, 045,045,045,045,045,045,045,045,04 
5,045,003 

1164 DATA 096,096,094,096, „096,096, 096,160, 160, 1& 
0,160,160,3492 

1165 DATA 180, 160, 160,160,160, 160,160, 160, 160,09 
6,096,096& 


032,032,032,032,032,032,032,032,032,03 
032,032,032,032,032,004,032,005,009,00 


032,032,032,032,032,032,032,032,032,03 


Compute mik 


032,032,032,032,032,032,032,032,032,03 


<47> 
<250> 
<254> 
<194> 
«163> 
<243> 
<108> 
<59> 
<16> 
<197> 
<248> 
<72> 
<227> 
<200> 
<252> 
<253> 
<170> 
<A7> 
<227> 
<142> 
<hh> 
<116> 
<177> 
<197> 
<126> 
<65> 
<136> 
<9> 
<2335> 
<129> 
<121> 
<33> 
<34> 
£3> 
<21ä> 
<5> 
<162> 
<106> 
<178> 
<111> 
<194> 
<100> 


<935> 


29 


programme 


1165 DATA 
0,150,160 
1167 Data 
6,096,160 
1168 DATA 
4,145,146 
1157 DATA 130,096,096,0976,096,129,144,145,146,16 
0,160,160,8425 

1170 DATA 180,160,160,160,160,160,160,096,074,07 
6,078,076 
1171 DATA 
9,180,180 
1172 DATA 
6,076,09& 
1173 DATA 
0,140,07& 
1174 DATA 0978,096,096,076,096,096,074,096,095,09 
&,096,128,7428 

1375 DATA 160,191,102,160,096,094,095,097 ,098,037 
3,074,083 : 
1176 Data 
7,160,160 
i177 DATA 
6,096,0976 
1178 DATA 
6,0968,096 . 
1179 DATA 07&,096,096,096,096,096,095,094,096,07 
6,129,170,691& 

1180 DATA 171,172,1680,141,142,143,130,074,096,0#7 
6,095,095 ® 

1101 DATA 096,096,096,095,096,096 ,076,096,095,07 
6,076,09& 
1182 DATA 
6,076,075 
1183 DATA 
6,096,096& 
1184 DATA 096,098,096,076,076,075,075,076,095,07 
6,095,096,6071 

1185 DATA 095,076,096 ,096,0965,096,095,095,095,09 
6,096,09& 

1186 DATA 094,098,095,095,096,096,,098,098,094,09 
6,096,07& 

1187 DATA 096,096,096,096,096,096,0976,004,004,01 
4,062,238 

1188 DATA 062,001,014,014,014,001,014,014,062,01 
4,001 ,014 

1187 DATA 014,014,004,004,062,014,014,001,014,01 
4,062,014,3754 

1170 DATA 001,116,014,082,001,001,014, 014,014, eo 
4,014,004 

1171 DATA 004,,004,014,254,079,001 ,0143,0642,014,00 
1,014,014 
1192 DATA 
4,062,001 
1193 DATA 014,014,014,014,001,014,0143,014,001,00 
1,014,014 

1194 DATA 004 ,052,052,005,005,053,005,001,047,00 
1,00f,001,1255 

1175 DATA 047,001 ,001,001,001,001,001,001,901,00 
5,005,00% 
1176 DATA 
1,001,001 
1197 DATA 004,001 ,049,005,005,008,053,005,005,00 
5,005,005 

1178 DATA 005,001,005,053,005,001,005,005, 101,00 
5,001,005 j 

1199 DATA 053,005,245,005,005,005,005,001,005,00 
5,005,005,1104 

1200 DATA 001,005,005,053,001,001,005,053,005,00 
5,005,005 

1201 DATA .005,005,005,005,005,001 ,053,005,005, 009 
1,005,005 

1202 DATA 005,010,010,010,005,005,005,005,005,05 
3,010,122 
1203 DATA 
1,010,010 
1204 DATA 010,0268,010,058,059,010,010,005,001,00 
1,001,061,881 

1205 DATA 013,013,015,013,005,005,005,117,0535,00 
5,005,005 

1205 DATA 005,005,005,005,005 ,005,005,007 ,007,05 
5,005,005 

1207 DATA 001 ,001,005,005,053,005,005,005,005,00 
5,005,005 

12008 DATA 005,053,005,005,005,013,013,000,000,00 


1,003 ,001 


098, 150,140,160,160,150,160,150,1680,1& 
160,160, 160,095 ,076,096,096,096 ,096,09 


160, 160,160,160; 180,160, 160,160,140,14 


098,096,075,127,141,142,143,160,160,17 
131,096,096 ,098 ,076,095,098,096,094,07 


.096,128,150,164, 165, 166,160,1580, 160,16 


084 ‚084 ‚084 ‚084 ‚084,096, 160,167 ,168,16 
160,160, 160,096, 0946 ,076,096,096,096,09 


076,096,096,076,129,183,184,130,096,0%7 


096,096 ,096 ,077 ‚078,079,0976,093,087,09 
076 „096,076 ,076 ,076,076,096,096,076,0%7 


014,014,001,014,014,014,004,004,014,01 


005,049, 241,001 ,001,001,047,001,001,00 


010,010,010,010,001,010,059,019,001,00 


<96> 
<1R6> 
<221> 
<122> 
<128> 
<73> 
<215> 
«623 
<135> 
<as> 
<159> 
<67> 
<236> 
<168> 
<101> 
<4> 
<149> 


<b> 


2243 


<B> 
x9> 
<25> 
<124> 
<5H> 
<59> 
<171> 
<150> 
<195> 
*231> 
<170> 
<103> 
2037 
<222> 
<94> 
<29> 
<1435> 
x128> 
<185> 
<97> 
<ib> 
<164> 


<97> 


<212> 


1207 DATA 001,001,001,001,001,001,001,001,001,00 
0,000,007 ,584 

1210 DATA 007,007 ,000,000,001,001,000,000,000,00 
0,000,000 

1211 DATA 000,060,000,000,000,000,000,000,005,01 
3,013,005 

1212 DATA 000,000,024,006,023,019,003,005,007,00 
5,026 ,003 

1213 DATA 023,009,005,007,007 ,007 ,006,019,019,00 
3,005,007 

1214 DATA 010,022,002, 029,007 ,028,022,003,089,00 
1,001 ,001,460 

1215 DATA 004 ,001,0649, 129,049,047,001,001,001,24 


1.001,6001 
1216 DATA 
1,001,001 
31717 DATA 
4,014,062 
1218 Data 
0,014,062 
17219 DATA 062,014,014,014,062,014,014,014,062,01 
4,126,062,1507 

1220 DATA 014,062,014,014,014,252,014,014,014,01 
4,014,037 
1221 DATA 
2,020,009 
1222 DATA 039,025,007,027,030,005,024,035,003,02 
1,040,002 
1223 DATa 
0,032,026 
1224 DATA 202,032,094,192,032,243,192,032,050,20 
5,032,080,3082 

1225 DATA 193,169,000,141,044,208,141,045,200,14 
1,044,208 

1226 DATA 032,061,195,032,010,194,032,110,193,07 
6,020, 192 

1227 DATA 032,227,203,173,000,220,041,016,240,24 
6,162,010 

1228 DATA 160,000,152,072,032,227,205,104, 168,13 
4,208,246 

1227 DATA 202 „208, 243,032,227,203,173,000,220,04 
1,016,208,7742 

1230 DATA 246,032,237, 204 ,076,159,119,133,001,1& 
0,024, 195 

1231 DATA 255,059,153,000,208,136,015,247,160,01 
9,185,024 

1232 DATA 040,155,028,208,156,016,247,167, 231,13 
3,254,169 

1233 DATA 007,133,255,160,000,169,032,145,254,17 
8,254, 165 

1235 DATA 254,201 ,255,208,002,198,255, 165, 255,20 
1,003, 208,8848 

1235 DATA 236,032,175,204,076,146,192,120,169,17 
7,141 ,020 . 

1254 DATA 003,169,192,141 ,021,003,169,186,141,01 
8,208,173 

1237 DATA 017,208,041,127,1341,017,208,169,129,14 
1,026,208 
1238 DATA 
1,208,007 
i239 DATA 173,013,220,089,076,126,234,173,018,20 
&,201,106,74B1 

1240 DATA 240,021,169,000,141,032,209,169,186,14 
1,018,208 

1241 DATA 173,017,208,041,127,141,017,208,076,12 
5,234,169 

1242 DATA 005,141,032,200,169,000,141,018,208,17 
3,017,208 

124% DATA 041,127,141,017,208,076,126,234,169, 81 
7,133,752 

1244 DATA 169,060,133,253,169,088,133,254,167,00 
6,135,255,7853 

1245 DATA 160,000,177,252,145,254,230,252,208,00 
2,230,253 

124& DATA 230,254,208,002,230, 255,165,254,201,23 
2,208,234 

1247 DATA 165,255,201 ,007 ,200,228,1&9,005,133,25 
2,169 ,052 

1248 DATA 133,253,169,056,133,254,169,218,133,25 
5,160,000 

1249 DATA 177,252,145,254,230,252,208,002,230,25 
3,230,254,10942 

1350 DATA 208, 002,230, 255,165,254 201 „252, 208,25 
4,165,255 

1251 DATA 201 ‚219,208 ,228,098,160,073,185,043,06 


0,193,080 


049,001 ,001,001,001,001,001 ,001,001,00 
001,001,061,001,001,001,001,052,014,01 


014,014,014,014,014,014,062,014,014,0% 


020, 005,029,025,010,020,027,015,012,03 


017,045,001,013,050,169,001,141,035,22 


088 ,074,173,025,208,141,025,208,041,00 


Compute mib 


<198> 
*197> 
56> 

«2525 
<11l&> 


<224> 


<170> 
<175> 
<133> 
<225> 
<Bl> 
<68> 
<214> 
<180> 
<187> 
<148> 
<115> 
<1> 
<180> 
<97> 
<80> 
<2> 
«x50> 
<6l> 
<B> 
<106> 
x30> 
<198> 
21725 
29? 
<3> 
<151> 
«157> 
<191> 
<252> 
<1&B8> 
<107> 
<b6> 
<x55> 
<12> 
“249> 


<161> 


.$10> 





TU8E 


: 11786 


1252 Data 003, 134,016,247,032,092,197,160,024,1& 
7,000,153 

1253 DATA 255,211,136,209,248,169,015,141,024,21 
2,096 ,258 

1254 Data 068,003,173,069,003,201,003,208,019, 16 
9,000,141,8333 

1255 DATA 068 „003,173,109,057,106,110,109,057,17 
3,110,057 
1256 DATA 
3,105,0B4 
1257 DATA 
8,253,162 
1258 Data 005,169 ,003,173,255,159,104,133,253,16 
0,000, 127 

1259 DATA 254,201,255,208,046,200,200,177,254,13 
3,250, 200,8021 

1240 DATA 177,254,133, 251,200, 177,254, 133,252,17 
3,068,003 

1261 DATA 208,024,167,175,153,249,032,253,193,1& 
9,007 ,133 

1262 DATA 249,165, 251 ,024,105,212,133,251,032,25 
3,193,07& 

1263 Dara 242,193,169,176,133,249,032,253,173,1& 
5,002,133 

1244 DATA 249,165,251,024,105,212,133,251,032,25 
3,193, 165,9741 

1265 DATA 254,024, 105,005, 153,254,202,208, 172,07 
6,164,252 

1266 DATA 156,165,249,145,250, 136, 192,255,208,24 
7,096,174 

1267 Dara 000,220,138,041,016,240,003,076,183,19 
4,138,041 . 

1288 DATA 008 ,208,050,173,070,003,240,003,076,18 
3,1974 ,032 

1369 Data 128,194,169,235,141 ,253,007,169, 170,14 

1,011.208,8478 

1279 DATA 167,068,181,010,208,173,016,208,007,03 
2,141,01& 

1271 Data 200,169,001,141,070,003,173,021,205,00 
9,032,141 

1272 DATA 021 ,208,075,103,194, 138,041 ,004, 208,05 
8,173,071 

1273 DATA 003,208,097,032,128,174,169,235,141,25 
4,007 ,167 

1274 Data 170,141 ,013,208, 169,041 ,141,012,208,17 
3,016,208,4877 

1275 Data 041,191,141,0168,208,169,001,141,071,00 
3,173,021 

1276 DATA 268,007,054,141,021,208,07&,193,174,1& 
9,205,133 

1277 DATA 235,169,202,133,236,076,233,202, 173,07 
:2,003,208 

1278 Data 039,032,128,194,169,235,141,255,007,16 
9,170,141 

1277 DATA 015,208,169,1B81,141,014,208,173,014,20 
8,041,127,7910 

1280 DATA 141 «016,208,169,001,141 ,072,003,173,02 
1,208,00% 

1281 Data 128,191 ,021,208,173,072,003,240,023,20 
6,015,208 

1282 DATA- 173,015,208,701 ,048,208,013,1&47,000,14 
1,072,003 

1263 DATA 173,021 ,208,041,127,141,021,208,173,07 
0,003,740 

1284 DATA 049,173,088,003,208,026,206,011,208,17 
3,011,208,6621 

1285 DATA 201 ,048,208,034,157,000,141,070,003,17 
3,021,208 

1284 DATA 041,223,141,021 ,2068,075,007,195,206,01 
0,208,173 

1267 DATA 010,208,201 ,255, 208,009, 173,016,208,04 
1,223,141 

1298 DATA 016,208,173,071,003,240,044,,173,058,00 
3,208 ,026 

1287 DATA 206,013, 208,173,0153,208, 201,049, 209,02 
9,169,000, 7128 

1290 Dara £41,071,003,173,021 ,208,041,191,141,02 
1,208,07& 

1291 Data 058,195,258,012,208,208,008,173,016,20 
B,997,044 

1292 DATA 141,016,208,076,173,200,149,003,133,25 
1,169,07%7 

1293 DATA 133,250,169,000,133,246, 169,208, 133,28 
7,167,001 

1294 DATA 133,249,133,245, 162,008, 160 ,000,177,25 


0,240,022,79743 


106,110,110,057,180,005,024,185,059,00 


153,072,007,136,208,245, 160,150, 134,20 


<229> 
353 

<137> 
<195> 
<107> 


<107> 


x178> 


<F1> 
<36> 
<176> 
<a3> 
<9> 
x52> 
<194> 
<142> 
<47> 
<131> 
<35> 
<144> 
<153> 
x15> 
<155> 
<121> 
<160> 
<160> 
<B7> 
<79> 
<51> 
<145> 
<30> 
<190> 
<148> 
<203> 
<2> 
<9> 
<1035> 
<130> 
<169> 
<20> 
<203> 
<20> 


<9> 


<i16> 


programme 


1295 DATA 145,250,024,105,005, 133,230, 230,246,23 
0,246 ,024 

127& DATA 039,248,230,245,202,208,233,076,160,1% 
7,173,066 

1297 DATA 003,208 ,003,076,083,196,169,000,133,24 
9,167,003 > 

1298 DATA 133,255,169, 079,133,254,167,001,133,25 
2,1697,208 

1299 DATA 133,253,162, 005,160,000,177,254,240,00 
8,177,252,9052 

1300 Data 201 ,050,208,002,230,249,230,254 230,25 
4,230,254 

1301 DATA 230,254,250, 254, 230,252, 230,252, 202,20 
8,227,165 

1302 DATA 249,240,007,201,001,240,003,076,160,19 
7,173,004 

1303 DATA 220,201 ,224,240,003,076,180,197,173,00 
4,220 ,041 

1304 DATA 063,168,169,000,133,252,169,12B, 133,25 
3,177,252,10353 

1305 DATA 170,240,237,169,000,145,252,206 ,066,00 
3,173,004 

1306 BATA 220,041 ,001,160,001,145,250,201,001,20 
8,017,160 „ 

1307 DATA 000, 167,070,145,246,173,016,208,005,24 
8,191,016 

1308 DATA 208,076,011,176,160,000, 157,000, 145,24 
6,169,255 

1307 DATA 049,248,045,016,208, 141,016, 208, 200,16 


9,050, 145,7677 
1510 DATA 246,1365,167,001,145,2590,200,200,159,14 
5,250,144 

1311 DATA 245,167, 247,138, 246, 169,007,133,247 ,13 
8,201,001 

1312 DATA 208, 005,169, 257,075,064,196,201,002,24 
0,005, 169 

1313 DATA 234, 076,064, 196,169, 232,160,001,024, 11 
3,250,164 

1314 DATA 245,145 „246,160,003,169,001,145,250,17 
3,021,208,9003 

13515 DATA 005 ‚248,141 ,021,208,076,160,197,169,07 
9,133,250 

1316 DATA 16#,003,133,251,162,005, 160,000, 177,25 
0,240,003 

1317 DATA 076,180, 197,1659,250,024,108,005,133,25 
0,202,208 

1318 DATA 239, 173,129,003, 201 „255, 208,003 ,076,04 
5,1977,169 

1317 DATA 060,141 ,066,003,173,0657 ,003,201,009,24 
0,003,238,7917 

1320 DATA 067,003, 032,092,197,032,199,176,032,10 
2,204,167 

1321 DATA 000,141,021,208,141,070,003,141,071,00 
3,141,072 

1322 DATA 003,173 „067,003,024,105,020,141,084,00 
5,159,001 


" 1323 DATA 141 ,084,217,032,243, 192, 173,063,003,02 


4,105,084 
1324 Data 141 ,173,007,076,019,197,173,069 ‚003,20 
8,024,173,5748 

1325 DATA 124 ,003,201 ,259,208,073, 169,006, 141,04 
2,217, 141 

1326 DATA 043,219,141,092,219,141,093,219,076,01 
8,197,170 

1327 DATA 169,124,133,250,169,003,1353,291,159,10 
7,133,252 

1328 Data 169,060,133,253, 160,000, 177,250,201 ,25 
5,208,010 

1527 DATA 177,252,145,250,202, 206 ,069,003, 240,02 
1,165,250,9939 

1330 DATA 056,233,005,133,250,201,094,240,010, 16 
5,252,05& 

1331 Data 233,005, 135,252,076,235, 196,096, 162,00 
0,160,000 

1332 DATA 136,208,253,138,072,032,110,173, 104,17 
0,202,208 

1333 DATA 241,032,043,192,169,032,141,054,005,09 
6,206,065 

1334 DATA 003,249,039,052,040,204 ,032,243, 172,16 
5,182,141,7688 

1335 Data 066,003,167,103,133,254,169,003,133,25 
5,169 ,08& 

1336 DATA 133 ‚252,169,060,133,253,160,030, 177,25 
2,145,254 

1337 Data 136,200, 247,076,146,196,076,029,203,1& 
7,000,133 


Compube mi 


<128> 
<70> 
<114> 
<5> 
<165> 
<aß> 
<207> 
<51> 
<106> 
<aS> 
<251> 
<180> 
<47> 


<159> 


sH3> 
<30> 
<156> 
xX1335> 
<21> 
<131> 
s13h> 
<B8> 
<108> 
x197> 
<93> 
<1589> 
<230> 
<35> 
<191> 
<119> 
2005 
<175> 
*95> 
<ZB> 
<131> 
<40> 
<176> 
<182> 
<a7> 
“45 
<183> 
<222> 
<42> 


31 





32 


software-service 


Eommüdore 
Bezzeil-Hr. COM CK 1/2 16,- 0M 
Basteli-Nr. CORSO 1/2 26,- DM 


Ehscksummer 1.8 6, Astronaut Battie 
(6-64), Husycohra {G-1B/116), Hardcspy- 
ratine {6-18/116), Hefmut und die Zeit- 
maschine iC-19/136), Locos (#C-20), 
Rock'me (VC-20), Charly der Raksten- 
rsann (VC-20), Interrupt-Programmie- 
rung (FG-20) 


Schneider 
Bastell-Nr. COM SK 1/2 16,- IM 
Basteli-Nr. COM SD 1/2 39,- DM 


Refonder, Boulder Gash, Basic-Bafehle 


auf dan Funktionstasten 

Hefi 5/86 

Commödare 

Beztsi}-Nr. COM CK 3/2 16,- DM 
Bestell-Nr. COM CB 5/2 20,- DM 


Spaza-Devil [E-84), Bisk-Eanl (D-54), 
ABG-Lacen (W-20), 3-N-Labyrinth {VG- 
20}, Tran iWE-20), invadera af Spaes IE- 
16/119), Sukmarine: (G-16/118), Balken- 
diagramm {6-15/118)} 


Schneider 

Bestell-Nr. COM SK 3/2 16,- UM 
Bestell-Nr. GDM SD 5/2 39,- DM 
Startank, üralik-Designer, Cross-Refe- 
rence, text 


Heft 9/86 

Commodore 

Bestell-Nr. COM CK 9/2 16,- DM 
BesteHl-Nr. COM CD 9/2 20,— DM 


Moonpatrol (VE20), Falcons Lander 
(YO 20), Frogger (VC20), The Games 
{C54), Cave of Death (C64) Spriies 
and Sound mit dem UMH-System 
(© 64), Digay (C16/118), Tapedirecto- 
ry (C 16/116), Reversi {C 16/116) 


Schneider 
Bestell-Nr. COM SK 9/2 16, —- DM 
Bestell-Nr. COM SD 9/2 39,- DM 


Creepy, Briefeschreiben, Frutty Man, 
Mirror Battie 








Commodore 

Bestell-Nr. COM CK 2/2 16,- DM 
Bestoll-Kr. GOM CD 2/2 20,- DM 
Rohao iC-64), Basic-Befehlserweiterung 
(C-64), Raketenstart (C-16/1i6), Drei- 
kampf (G-16/116), Headline (C-16/116), 
Datender {V6-20), Formel 1 (VG-20), Me- 
mary-Bisplay (VG-20) 


Schneider 
Bestell-Nr. COM SK 2/2 t6,- DM 
Bestell-Nr. COM SB 2/2 39,- DM 


Alien 2001, Diamond Hunter, Directory 


Heft 8/85 

Commadsre 

Bestell-Nr. COM CK 6/2 18,- DM 
Bestell-Nr. COM CD 6/2 20,- Dik 


Music-Master (6-64), The little Puck 
goes home (C-64), EDBY {5-64), Invers- 
Utility (6-18/116), Checksummer (6-16/ 
116}, Aitenwurf iC-16/116), Data-Maker 
(WC-20), Karate-Kid (YE-20), Q-Bart (kb- 
26) 

Schneider 

Bestell-Nr. COM SK 5/2 16,- DM 
Bestell-Nr. GOM SD 6/2 39,- DM 
Disksort, Mini-Forth, Stareommand 


Heft 10/86 

Commodore 

Bestell-Nr. COM CK 10/2 16,- DM 
Bestell-Nr. COM CD 10/72 20,- DM 


Laufschrift (VC 20), Checksummer 
(WC 20), Treasure Robber (VC 20), 
Scerumble (VC 20), Refusal-Basiclader 
(C-16), Hardy-Copy-Blitz (C-16), Auto- 
start (C-16}, FiN-Utility (C-16), Railway 
(C-16), Bomino -{C-16), Sprite Turn/ 
Character-Switch (C-64), Checksum- 
mer (C-64}, Horse Games (C-64), Pa- 
trouille (C-64) 


Schneider i 
Bestell-Nr. COM SK 10/2 18,- DM 
Bestell-Nr. COM SD 10/2 39,—- DM 
Checksummer, Panic-Car, Scurfy 


Joe, Drawgenerator, Airfighier 


Commodore 

Bestell-Nr. COM CK 3/2 16,- DM 
Bestell-Nr. COM ED 3/2 20,- DM 
Minor-Jumper (C-18/116), Hero 


{6-18/116), Data-Maker (C-H6/116), Bo- 
iehlserweiterung (6-64, Starchin 
{6-64}, Mini-Car-Race (6-64), Text- 
Seroller (6-64), Text-Editor (6-64), 
Checksummer (WC-20), Hobin ai Ra- 
venwreck (VG6-20), Mini-Karate (VG-20), 
Autonumher-Routine (VE-20} 


Schneider 

Bestell-Nr. COM SK 3/2 16,- DM 
Bastell-Nr. 50 SD 3/2 39,- DM 
Smily, Serepi, Dieverrückte Fabrik, Disc- 
Help 


Heft 7/86 

bemimasore 

Bestell-Nr. COM CK 7/2 18,- OM 
Besiell-Kr. COM CD 7/2 20,- DM 


%6-20-Sonnd-Dema, Mad Aush (E6-20), 
Ekust-Heif (96-20, Roadrunner (6-64), 
Basic Extensian 16-64), Meteoriten- 
sturm {6-64}, Ehecksummer C-16/116, 
AirweH {G-16/316), Break-Qut (C-16/116) 


Schneider 
Bestell-Nr. COM SH 7/2 16,- DM 
Bestell-Nr. COM SD 7/2 39,- DM 


Poker, Gave-Walker, Diskettenarchiv 





us diesem Heft: 


Bestell-Nr. COM CK 11/2 
16,- DM- 
Bestell-Nr. COM CD 11/2 
20,- DM 


Bestell-Nr. SK 11/2 
16,- DM 
Bestell-Nr. SD 11/2 
39,- DM 









Commodore 
Bestell-Nr. COM CK 4/2 16,- DM 
Bestell-Nr. COM GB 4/2 20,- DM 


Shuttle (VG-29), Josef in den Höhlen 
{VG-26), Merge-Rautine (45-26}, Shoot it 
[vG-201, Fast Trust (6-64), Bata-Texi 84 
{6-64}, Sary, der schnelle Kahelvarleger 
(6-16/116}, SDI {C-16/118), Baep-Rontine 
(6-16/115) 


Schneider 

Bestell-Nr. COM SK 4/2 16,- DM 
Bestell-Nr. COM $0 4/2 39,- DM 
Space-Hescue, Texiediter, Starfight, 
Progranım-Retter 

Heft 8/36 

Commodere 

Bestell-Nr. GEM CK 8/2 16,- DE 
Bestell-Nr, EIM CB 2 20,- DM 


Naath Besart {6-64}, 3-N-Labyrinth (C- 
64), Klick (6-64), Bahınkaf (45-28), Ome- 
ga Attack (YC-20), Sound (YO-20), Plaii- 
nenlayaut (G-18/315}, Ballosn Shoot (16. 
1:6), Mardcopy (G-18/116) 


Schneider 
Bestell-Nr. COM SK 5/2 16,- DR 
Bestell-Nr. COM SD 8/2 39,- DM 


Alle hier aufge- 
führten Kassetten 
und Disketten kön- 
nen jederzeitnach- 
besielit werden. 


Bei den Zeitschrif- 
ten sind die Ausga- 
ben 5, 8, 8, 16, 12 
(85) und 5, 6, 7, 8, 
9, 10, 11 (86) noch 
vorhanden. 





x 












Rechtzeitig zur Weihnachtszeit! 
Wir haben aufgeräumt und tolle Pakete geschnürt! 


Und das zu einem Preis, 






> bei dem das Verschenken leicht fällt. 


Compute mib 


+ 
x 


186° 





Superpaket 1 

Spiele 

Monster Attack, Projekt, High Nöon, Brieftaube, 
Cadilon, Turbo Jet, Sea Attack, The Maze 
Graze Game, Galaxi, Space Comets, Shest, 
Vampir, Memory - 


SP-C-K-1 
SP-C-D-1 


Kassette 20, — 
Diskette 20, — 


Superpaket 2 

Spiele 

Tarık Duell, Astronaut, Jungle t, Jungle 2, Sufo, 
Fire-Legion, Spiders, Star Battie, Super 
Breakout, Mission Rescus, Roagpainter, 
Moorsweeper, Scott 


SP-CK-2 
SP-2-D-2 


Kassette 20, — 
Diskeite 20, — 


Superpaket 3 
Anwender 


The Basic, Basicreset, Data-Generator, Print- 
Generator, Supermon-5B4, Restore N, Disky 10, 
Fill-Loader, Funktionstasten-Belegung, Autostari, 
Muitibasic, Bildeditor, Spritehilfe + Demo, 
Autonumber, Micro-Tools + Mloader 


SP-C-K-3 
SP-C-D-3 


Kassette 20, - 
Diskette 120, - 


Preis Bestell-Nr. 
Kasz./Disk. 


24,50/29.50 


Programm 


Tron/Mercurlous . c13 
Intareeptor 
BaselSchotter 

Jump Mani 

The Way/Space Taxi 
Fight Kight!Monster- 
lagdiCatossus Mühle 
Mr. Posiman/Moon- 
tunnel/Moonrallyesi 
Steinschlag 

Taxl Driver! 

Deadiy Mission 


24,50129,50 
24,50/29,50 


24,50/29,50 


24,50/23,50 


24,50/29,50 


' Bobby In Action 





Superpaket 1 
Horror Castle, Fantasy County, Senso, Jumping 
Joe, Schatztaucher, Shaolin, City Runner 


SP-O-K-1 
SP-O-D-1 


Kassette 20, - 
Diskette 20, — 


Prals Bestell-Nr. 


Kası./Disk, 


Programm 


Horror Gastlal 
Fantasy County 
Gckirzusch! 

%ocon Fighter 
FroggeriHumer 
Cormie Terror! 
Schwimmen/Break In 
Panle/Phantom’ 
Metsaorstorm 


18, - 


18,-123, - 
418, - /23,- 


18, - 123, = 


13,- 123, - 


Superpaket 1 


Flowers, Tanker, Jupiter Rescue, Einbrecher, 
Hospital, Alien, Flipperball, Sub-Zone, Dr. Gerp, 
Geo-Zayxon, Froggies Night Mare, Punkte- 
fresser, Starwars, Salavage Crew 


SP-V-t nur Kassette 20,— 


Preis Bestell-Nr. 
Kass.!Disk. 


16, - 721,50 


Programm 


BrückenbaufJango vı3 
Miner, dar Fassaden- 
streicherlInkaschatz 


Bergshooting! 


16, - 121,50 


16, - /21,50 
Josst Inden 
Katakomben 
Hot Faad/ 
Men-Resceuel 
Soundprogramm 
Gastie Draculaf 
UFO-Dastroyer 


8,50115,- 


14,50/19,50 


14,50119,50 


Anleitungen zu unseren Programmen erhalten Sie aus un- 
seren Heften. Bei ausverkauften Heften erhalten Sie zum 
Heftpreis Fotokopien der Spielbeschreibungen. ” 
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Gomputs mib 


Superpaket 1 

Spiele 

Alien Hunter, Catch, Interceptor 3 D, City 
Lander, Conan’s Castle, Copter Patrool, GPC 
Bert, Crash, Demon Attack, Duell, Etis, Labyrint, 
Miner, Tower, Snider’s Maze, Geister Schloß, 
Fallschirmspringer, Secret Valley, Aladin, 
Höuntad Castle, Cave runner, Cobra, Erwin, 
Kruemi, Q-Bert 


SP-SR-K-1 
SP-SR-D-1 


Kassette 20, — 
Diskette 27,- 


Superpaket 2 
Anwender 


Back up, Data gen, Datenverwaltung, Discopy, 
Monitor, Painter, Remkiller, SU-File, 
Tastaturbelegung 


SP-SR-K-2 
SP-SR-D-2 


Kassette 20, - 
Disketie 27, — 


Kass./Disk. 


Programm 


Schnelder Panik’ 
Killer Ship 
Midaight/Horror Cavez 
Spider Maze 
Triton/Traumland 
Starpatrol/ 

Hellcopter Pilot 

Red Alertl 
Speedy-Frogs/Aurlon 


13,50/28,39 
18,50/28,50 
18,30/26,50 
18,50/28,50 


19,50128,50 


18,50/28,50 


Spitzenscftware für jeder- 
mann. 

Überzeugen Sie sich von 
unseren. Angeboten und 
bestellen Sie noch heute. 
Alle Bestellungen werden 
innerhalb nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellungen 
unter der Rufnummer 


056 51/300 11 





Programme 


1338 DATA 254,169,128,133,285,169,001,133,248,17 
3,067 ,003 

1339 DATA 024,109,067,003,169,067,003, 148,169, 14 
6,133,250,0163 

1340 DATA 169,063,133,251,177,250,170,032,144,19 
7,230 ,248 

1341 DATA 200,177,250,170,032,144,197,230,248,20 
0,177,250 

1342 DATA 170,132,249,160,000,165,248,145,254,23 
0,254,202 « 

1343 DATA 208,247,164,247,096,167,079,133,250,16 
97,003,133 

1344 DATA 251,169,001,133,248,133,244,169,000,13 
3,246,169, 10344 

1345 DATA 208,133,297,160,000,177,250,201 ,201,17 
6,003,076 

1346 DATA 122,198,170,202,138,145,250,201,200,24 
0,003,076 

1347 DATA 147,200,167,199,133,238,167,202, 133,23 
6,032,233 

1348 DATA 202,160,000,167,001,145,250,160,003,17 
7,250,133 

1349 DATA 254,169,003,133,255,169,255,160,000,14 
5,254, 165,9477 

1350 DATA 254,201,124,208,017,169,006,141,042,21 
7,141,043 

1351 DATA 217,141,082,219,191,083,219,076,029,19 
9,201,129 

1352 DATA 208,020,169,004,141,060,219,141,081,21 
7,141,062 

1353 DATA 219,141,100,219,141,101,217,141,102,21 
9,160,004. 

1358 DATA 177,250,133,252,201 ,001,240,007,167,00 
5,133,253,8356 

1355 DATA 076,050,198,167,006,133,253,160,001,17 


7,254,041 

13564 DATA 127,133,245,162,000, 160,000, 177,252,04 
1,192,224 

1357 DATA 005, 240,005,0097,032,075,077,198,007,04 
5,145,252 

1358 DATA 165,252,024,105,040,133,252,165, 253,10 
5,000,133 

1359 DATA 253,232,228,245,208,217,160,003,169,00 
0,145,250,8063 

15602 HaTd 165,254,201,129,209,107,173,066,003,13 
3,192,149 . 

1561 DATA 000, 141,066,003,076,216,198,160,000,17 
7,250,240 
1362 DATA 
7,200,160 
1363 DATA 
0,240,031 
1364 DATA 201,130,240,007,201,160,240,003,076,14 
7,200, 1689,86207 . 

1365 DATA 247 ,133,252,167,007, 133,253, 164,248, 17 
7,252,024 . 

13566 DATA 105,001 ,145, 252,076, 147,200,169,128,14 
1,004,212 

1347 DATA 160,000,152,145,250,169,255,069, 244,04 
5,021,208 

1358 DATA 141 ,021,200,076,147,200,150,001,177,25 
0,201 ,002 

1369 DATA 144,003 .076,025,200,160,002,177,250,17 
4,068,003,8223 

1370 Dnra 201,093, 240,018,224,000, 240,007, 201,00 
2,240,010 

1371 Data 076,147 ,200,201 ,001,240,003,076,147,20 
0,160,001 

1372 DATA 177,250,240,028, 136,177, 246 ,054,233,00 
1,1435,245 

1373 DATA 201,255, 240,003,076,044,199,167,255,06 
7,244,045 

1574 DATA 016,208,141,016,208,076,044,199 136,17 
7,246,024 ,8044 

1575 DATA 105,001 ,145,246,240,003,076,044,199,17 
3,016,208 

1376 DATA 005,244,141 ,016,208,160,003,177,250,20 
8,003,076& 

1377 DATA 232,197,160,001,177,246,201,130,240,00 
3,076,232 

1378 DATA 199,1697,104,1335,252,167,005,133,253,1& 
2,004 ,160 

1377 DATA 000, 177,252, 201,255, 208,013, 165, 252,02 
4,105,005,8244 

1380 DATA 133,252,202,209,238,076,232,199,133,24 
7,160,000 


007,201 ,002,144,073,076, 138, 198,074,14 


000,177,250,056,233,001,145,250,201,11 


<7> 
<27> 

<134> 
<149> 
<205> 
<28> 

<70> 

<18> 

<251> 
<128> 
<199> 
<143> 
<107> 
<180> 
<108> 
<1977> 


2437 


<40> 
<a0> 
425 
2157 


+252> 


<1bF> 


'<232> 


<101> 
<EO> 
<243> 
<17> 
<73> 
<20> 
<61> 
<182> 
<214> 
<137> 
<24> 
<19797> 
<168> 
<171> 
<244> 
<183> 
<173> 
<108> 


<193> 


1381 DATA 
3,243 ,036 
1362 DATA 243,048,014,169, 255,069, 244,013,016,20 
8,201 ,255 - 

1393 DATA 
3,0164,208 
1584 DATA 201,255,208,093,169,211,133,235,169,20 
2,133,256, 10010 
1305 DATA 032,233,202,160,003,165,252,145,250,16 
0,000,167 

1356 DATA 255,145,250,167,222,133,254,169,005,1% 
3,255,200 

1387 DATA 177,252,042,136,177,252,106,024, 106,02 
4,106,024 

1382 DATA 101,254,135,254,144,002,250,255, 160,00 
4,185,254 

1367 DATA 145,250,180,001,177,252,041,127,170,13 
H5177,254,9233 > 

1370 DATA 041,192,007,046,145,254,165,254,024,10 
5,090,133 

1371 DATA 254,165,255,105,000,133,255,202,209,23 
2,076,147 

1392 DATA 200,160,000,177,248,208,011,1697, 255,06 
9,244,013 

1393 DATA 016,208,201 ,255,208,021 ,201,070, 240,00 


177 246,197 249,208, 127,200, 177 252,13 


208,014,076,232,199,169,255,069,243.01 


- 3,076,147 


1594 DATA 200,149,2559,069,244,013,016,208,201,25 
5,240,003,89731 

13753 DATA 076,147 ,200,160,001,177,246,201,130,20 
8,003,074 

13796 DATA 182,1768,160,001.177,246,024,105,040,13 
3,243,169 

1377 DATA 000,133,249,149,077,133,252,189,003,13 
3,253,162 

1378 DATA 005,167,000,133,254,149,200,133,255,16 
0,000,177 

1397 DATA 252,240,010,160,001,177,254,197 ,293,20 
A,002,230,8575 

1409 DATA 249,2350,254,230,254,250,252,230, 732,23 
0,252,230 

1301 DATA 292,250,252,202,208,223,165,249,201,00 
2,144,011 " 

1402 DATA 160,001,177,250,009,002,145,250,07&,14 
7,200, 160 


1403 DATA 001,177,246,024,105,040,145,246,177,25 
0,041 ,001 
1404 DATA 073,001,195,250,169,247,133,254, 164,24 
8,167,007,,9922 

1405 DATA 133,255,177,253,201 232,240 ,004,201 ,23 
3,209,004 

1496 DATA 073,001 ,145,254,024 ,038,284 ,230,246,2% 
0,246,155 

1407 DATA 250,024, 105,005,133,250,230 248, 168,24 
8,201 ,00& 

1408 DATA 240,003,074,182,197,096,173,030,20B,13 
3,243,169 

1407 DATA 070,133,250,169,003,133,251,169,032,13 
3,248,169,9413 

1410 DATA 010,133,246,167,208,133,247,160,000,17 
7,250,208 

1411 DATA 003,076,222,201,169,255,067,248,005,24 
3,201,255 

1412 DATA 240,003,076,222,201,167,079,133,.252,1& 
9,003,13% _ 

1413 DATA 253,167,001,133,245,169,000,133,254,1& 
9,208,13% 

1414 DATA 255,169,000,133,249,160,000,177,252,20 
1,001,240,7272 

1415 DATA 003,076,197,201,169 255,069, 245,005,24 
3,201,755 

1415 DATA 240,003,075,197,201,160,001,177,246,20 
1,122,17%& 

1417 DATA 022,201 ,092,176,009,177,254,201,050,22 
0,021,076 

1418 DATA 177,201,177,254,201,090,240,012,076,19 
7,201,177 

1419 DATA 254,201,130,240,003,076,197,201,160,00 
0,177,246, 9156 

1420 DATA 153,242,177,254,133,241,157,253,069,24 
9,013,01& 

1421 DATA 208,201,255,208,022,189,255,069,245,01 
3,018,208 

1422 DATA 201 ,255,240,022,167,000,056,229,241,02 
4,101,242 - 

1423 DATA 076,113,201,167,255,069,245,013,016,20 
8,201 ,255 


Compute mi 


<95> 
<179> 
<a4> 
<168> 
<797> 
<12> 
<242> 
<192> 
<255> 
<130> 
<145)7 
<130> 
<979> 
<170> 
<29> 
<1895 
<117> 
<1773 
<ı84> 
<a&> 
<3> 
<69> 
<230> 
<167> 
<215> 
<25> 
<181> 
<146> 
<207> 
<189> 
<30> 
<237> 
<64> 
<180> 
<125> 
<a4> 
<154> 
<108> 
<253> 
<75> 
<141> 
<168> 


<183> 


1186 


| 





LA ab 
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1424 DATA 240,092, 165,242,056,229,241 ,024,105,00 
1,201,025,9041 

1425 DATA 176,080,169,195,133,235,169,202, 133,23 
&,032,233 

i42& DATA 202,169,200,160,000,145,252,167,248,13 
3,239,169 

1427 DATA 007,133,240,162,249,169,236,1435,237,16 
0,000,169 

i429 DATA 000,145,250,169, 255,069 ,240,045,021,20 
8,141,021 

1429 DATA 208,200 ,200,177,252,201,001,208,007,16 
2,002,160, 9338 

1439 DATA 004,078, 237,201 ,201,002,208,007,160,00 
4,162,005 

1431 DATA 076,237,201,160,003,162,001,076,237,20 
1,230,254 

1432 DATA 230,254,165,252,024,105,005,133,252,23 
0,247 ,024 

1433 DATA 038,245,165,245,201 ,052,240,003,076,24 
4,200,230 

1434 DATA 246,230,246,230 ,250,024,038,246,240,00 
3,076,198,897& 

1435 DATA 200,096,169,059,135,239,169,003,133,24 
0,177 ,239 
1456 DATA 
6,003,076 
1437 DATA 


134,241 ,024,101,241,195,239,201,010,17 


016, 202,056, 253,010,145,239,136,162,00 


1.076,237 - 


1438 DATA 201,152,201,005,176,176,259,069,003,01 
6,171,032 

1439 DATA 084,192,169, 128,141 ,026, 208, 141,025,20 
8,169,021,7911 

1440 DATA 141,024,208,160,009,152,024,105,215,15 
3,247 ,007 
1441 DATA 
0,209,136 
1442 DATA 
6,100, 160 
1443 DATA 
9,192, 191 
1444 DATA 016,20B,162,255,142,023,208,142,027,20 
8,232,192,7753 

1445 DATA 028 ,208,202,142,021,208,160,011,185,14 
2,202,153 
1446 DATA 
2,153,084 
1447 DATA 


3,192,007 

144B DATA 

5,017,019 

1447 DATA 032,002,021,020,020,015,014,090,003,04 
1,032,049,5715 

1450. DATA 057 ,056,054,032,026,021,008.005,009,01 
8,032,021 

1451 DATA 019,023,001 ,014,009,032,039,032,020,00 

6,015,01% 

1452 DATA 001,019,032,011,005,021,003,008,005,01 

2,000,042 

1453 DATA 003,026,170,129,014,255,000,011,000,12 

7,007,112 

1454 DATA 023,006,000,129,014,032,003,053,160,03 

3,010,015, 2057 

1455 DATA 025,019,020,009,003,011,032,016,015,01 

8,020,032 

145& DATA 009,009,167,212,133,238, 160,000, 177,23 

5,133,237 

1457 DATA 160,004,169,000,145,237,180,001,177,23 

5,136,145 

1458 DATA 237,160,002,177,235,134,145,237,160,00 

3,177 ,235 

1459 DATA 200,200,145,237,136,177,235,200,200,14 

5,237,136,7653 

1460 DATA 177,235,136,145,237,096,167,094,141,17 

3,007,169 

1461 DATA 015,141,024,212,133,243,169,105,133,25 

4,167,006 

1462 DATA 133,235,162,032,032 ‚203,203, 032, 203,20 

3,162,045 

1463 DATA 032,203,203,162,160,032,203,203,032,20 

3,203,16% 

1364 DATA 195,133,254, 159,218, 133,255,162,001,03 

2,203,208,89791 

1465 DATA 169,218,141,249,007,159,172,141,000,20 

8,159,195 

14&& DATA 191,001,208, 169,000, 141,016,208, 169,00 
1,141,021 


154 ,208,246,140,015,195,048,202,153,00 
016,247,076,084,202,045,100,075,100,12 


100,194, 100,234, 100,005, 100,036,100,1& 


006,007,156,016,247,160,015,104,217,20 
007 ,136,016&,247,150,038, 105,194 ,202,15 


136,016,247 ,032,043,172,07&,016,018,00 


<157> 
<157> 
£797> 
<B2> 
<24> 
<“59> 
<172> 
23357 
<1&609? 
<13> 
<«29> 
“24> 
<B7> 
<2277> 
<u7> 
<ilb> 
«5 
<19> 
x23> 
<187> 
<135> 


<175>7 


<25> 


<35> 
<39> 


ar 


“2227 
x30> 
<40> 
<28> 
<177> 
<159> 
x35> 
<P> 


- £197> 


<218> 
<230> 
<FAr 

«2597 
<154> 
<15B> 
<188> 


<aF> 


programme 


1467 DATA 208, 160,000,162,000,7202,208,253,136,20 

8,250 ,206 

1469 DATA 000,208,173,000,208, 206,001 ‚208, 173,00 

i,208,240 

1489 DATA 023,041 ,015,208,003,032,171,203,032,11 

0,193,160,78&0 

1470 DATA 010,162,000,202,208,253, 136,200, 250,07 

6,1182,203 i 

1471 DATA 

3,192,108 

1472 DATA 

5,208,004 

1475 DATA 

3,235,169 

1473 BATA 203,133,236,074,233,202,000,158,097,08 

5,014,033,8751 

1475 DATA 160,000,139,145,253,200, 192,005,208,24 

8,165,254 

1875 DATA 024,105,040,133,254,165,255,105,000,13 

3,255,096 

1377 DATA 149,059,133,254,167,208,133, 255, 160,00 

5,177,254 

1278 DATA 024,105,001,143,254,136,208,246,09&,00 

0,103,017 

1479 DATA 007,217,033,000, 237,021 ,007 ,217,033,00 

0, 020,024, 7645 

1400 DATA 007,217,033,000,207 ,034,007,217,033,00 

0,103,017 

148t DATA 007,217, 033,000,208,013,007,217,033,00 

0,010,013 

1482 DATA 007,217,033,000,103,017,007,217,033,1& 

9,016,133 

1403 DATA 235,169,208,133,236,032,255,202,032,1& 

4,204,169 

1484 DATA 022,133,235,169,204,133,236,032,233,20 

2,032,164,6393 

1485 DATA 204,169,028,133,235,169 ,204,133,256,03 

2,233,202 

1486 DATA 032,164,204,159,034,133,235,169,204,13 

3,236,032 

1487 DATA 233,202,032,168,204,169,000,141,004,21 

2,096,169 

1496 DATA 248,133,235,167,203,133,256,032,233,20 

2,032,164 

1497 DATA 204,169,254,133,235,169, 203,133, 236,03 

2,233,202,#572 

1490 DATA 032,164,204,149,004,133,235,169, 204,13 

3,235,032 

1491 DATA 233,202,032,164,204,167,010,133,235,16 

9,204 ,133 

1492 DATA 2364,032,233,202,032,164,204,169,000,14 
1,004,212 

1493 DATA 075,160,000, 162,000, 202,208,253, 134,20 

8,250,079& 

1398 DATA 169,207,133,254,169,218,133,235,160,11 

9,162,005,8907 


167,000,1431,0043,212,032,255,204,032,04 
104 ,074,005,192,199,2435,165, 245, 201,25 
230,243,165,243,141,024,212,169,197,13 


- 1395 DATA 032,230,204, 165, 254,024, 109,120,133,25 


4,165,255 

1494 DATA 105,000,133, 255,160,119,162,001,032,23 
0,204,165 

1497 -DATA 254,024,105,120,133,254, 145,255; 105,00 
0,133, 255 

1498 DATA 160,040, 162,014,076,230,204,139,145,25 
4,136, 208 

1497 DATA 250,096, 167,039, 133,254, 169,208, 133,25 
.5,160,008,8950 

1500 DATA 149,002,145, 254,136, 209,249,096,169,03 
9,133,252 

1501 DATA 169,205, 153,253,169,038,133,254,169,03 
0,133,246 

1502 DATA 169,005,024,105,212,133,247 ,169,005,13 


' 3,255,160 


1503 DATA 010,177,252,145,253,169,001, 145,246,13 
6,208, 245 
1504 DATA 094,057,058,059,010,032,032,020,061,01 
0,062,160, 8054 
1505 DATA 000,162,010,173,004,220,041,001,024,10 
5,004,133 
1506 DATA 
4,133,252 
1507 DATA 
8,224,096 
1508 DATAggysarernensnnnn nun nn nn m AT 
2000 REM ————— u ENDE um 
ENDE DES LISTINGS 


255,105,212,133,253,173,004 ,220,133,25 


169,060, 145, 253, 169,015,195,252,202,20 


Compube mib 


1963 
<974> 
<83> 
<3B> 
<148> 
<240> 
<a2> 
<101> 
<39> 
<252> 
<294> 
<198> 
<128> 
<B6> 
<226> . 
<217> 
<155> 
<1897> 
<221> 
<221> 
«23577 
<139> 
<107> 
<i> 
<127> 


«193> 
<212> 
<220> 
<217> 
<203> 
<169> 
+«118> 
<173> 
<2147 
<98> 

«226> 
<106> 
<238> 
<112> 
<137> 
<17> 


<222> 
<4> 


programme 
Weißt Du wieviel Sternlein stehen? 





bekannt! 


Das Programm ist menügesteu- 
ert. Der Rechner verwaltet zwei 
Uhrzeiten parallel! Zum einen ist 
es die MEZ, per Echtzeituhr, zum 
anderen eıne Festzeit, welche der 
Computer bei seinen Berechnun- 
gen benutzt. Es empfiehlt sich 
zum Programmstart die Echzei- 
tuhr mit der aktuellen Zeit zu 
stellen. Vergeht einige Zeit beim 
Beobachten der Planeten, so kann 
mit Taste (4) die Computertest- 
zeit mit der Echtzeituhr einfach 
nachgestellt werden. 


Bei der Sommerzeit (MESZ) muß 
eine Stunde abgezogen werden, 
was bei der Eingabe unbedingt zu 
berücksichtigen ist. Beachten Sie 
weiterhin bei der Wahl eines aus- 
ländischen Standortes die Uhr- 
zeit. Sie muß immer an die MEZ 
angepaßt werden. 


Erläuterungen zu den Planeten- 
daten: 


Position: geographische Lage des 
Beobachtungsortes 


Rektaszension: galaktische Lin- 


ge, entspricht der geographischen 
Länge 
Deklination: galaktische Breite, 


entspricht der geographischen ° 


Breite 

Kulmination: Zeit der höchsten 
Stellung des Planeten im Süden 
Stundenwinkel: die Zeit, die seit 
der letzten Kulmination vergan- 
gen ist 

Azimut: entspricht der Him- 
melsrichtung in welcher der Pla- 
net zu sehen ist, Es wird von Sü- 
den nach Westen (Positiv) bzw. 
nach Osten (Negativ) gezählt. 
Erhebungswinkel: der Winkel 
zwischen Horizont und Planet 
Sternbild: gibt das Sternbild an, 
in dem sich der Planer befindet 
Sternzeichen: es weicht wegen 
der Präzession vom Sternbild ab 
Entfernung: Distanz zwischen 
Erde und Planer 

scheinbare Größe: relative Aus- 
dehnung des Planeten, in Bogen- 
maß angegeben 


©-64 LISTING + CHECKSUMMEN Sc v1.08 

100 REM"TISPACE TEE FT 

110 REM"ISPACEF#ISPACETTI 

120 REM"ISPACEI#TIPACER SS SPACE SO SHIFTSFACE 5 




















TSPACE 55 SHIFTSPAGE SY SHIFTSPAGE SS SHIFTSPACE 
ST SHIFTSPACE SE SHIFTSPACE SM SPACE2I» 

130 REM"{ISPACEIHISPÄCERTI# 

140 REM" ESPACEIFTSPACE SCHOPYRIGSHTSTSPACEITFBATS 

PACEIEY{SPACE SK SA SB 30 SS SQ SPACEI* 

150 REM" ISPACEIHISPACEZF>I# 

159 REM" SPACE Ben 

170 REM" ISPÄCEIRTSPACEPTIH 

190 REM" {SPACEIHASPACE SKYARSTENTSPACE SBIOGUSCH 
{SPACE SSYOFTWAREISPACE2FF 

199 REM" CSHIFTSPACEIRLSPAGES SLYUNINKHOFSTR. {SPA 

CEFLOTSPACESSH . 

2009 REM" {SPACE H#ESPACES SD3-4600XSPACH SDIORTMUN 
D{ISPACEIALISPACEFIH 

210 REM" ISPACEI#LSPACEF STYIEL. : (02313 /ASSOZBIEPA 
CES}* 

220 REM" ISPACEFI#TSPACERTIR 

230 REM" LSPACE Here 

240 REM" ISPACEI«eR 

250 REM"{SPACEr«* 

260 REM"ISPACEI® 

270 REM" . - 

280 5=-53748:DIM M{7,10),V$ (9) ,H#t12) , 1113 .BNC2O 
3 „B1120) „LN(20} ,LI 120} 

290 Pi=r:P?=PI#7=:RA=PI/1B0:BT=31.5:6GE=7. br UP=0:D 
F=0:6F=0:FOKE 5+?78,0 

300 U$="272.306": TI$="223000":6$="21.06.3996" 

310 ULS="ICT4O)" 

320 7Z$="IHOHE DOHNIS RIGHT?” 


.N SHIFTSPACE SN SHIETSPACE SE SHIFTSPACE SN SHIF 












































Compute mik 


73 
493> 


«23357 
115> 
<119> 
<133> 


<i16> 
<248> 
<RaAT> 


<176> 
<183> 
<1897> 
<133> 
<167> 
<224> 
<226> 


<al> 
<26> 
<146> 
«147> 


11/86 


1186 


DEF FN ASNCXI=ATNIXK/ERR IL-K 


330 

349 DEF FN ACSIKI=-ATNIX/SORCL-KRH )+PL/Z 

350 REM . 

360 REM" {SPACE SHYAUPTHENDE 

370 REM 

380 POKE 2040, 11:POKE 2041,11:POKE 5+39,6:POKE 3 


+40,6:PORE 5+15,0 

390 POKE 199,0:POKE 8+24,723:POKE 5+32,0:POKE 5+3 
3,0: PRINT"ICLEAR BGERETYI"EHRSF (EI 

400 PRINTTISRACEZ ca Sast 653" 








420 FPRINT"ISPACE> CZ Erf wer 

430 FRINTMIDS (778,2, 13) 5PC (97 "TBLUEI."SPELATI". 
“GPECLTI"T."FSPE(CIII" "SPCEIEI" "4 

446 PRINTSPC 1403" CYELLONIRTBLUHEF"SPCACY" 

un en TTT 

450 IF QOUO=0 THEN BÜSUR 2990: 08= 1 

450 BR=EBT/1BO#FI 

470 FPRINT"CHOME GREEN DOHNS SPAGESILIITSPACE2 SH 
+ERTE {SPACE }FUERTSPACEIEINENTSPACE SPHLANETEN" 

480 PRINT"(REDP SPACELI"LEFTS(ULF,SO) 

A490 PRINT"IGREEH SPACEHSILZITSPAGEL SWIERTEISPACE 

FFUER{SPACEIALLETSPACE SPIHLANETEN" 

590 PRINT"{REBD SPACESI"LEFTFLULF, 27) 

510 FRINF"{GREEN SPACETILSITSPÄCER SUFHRZEITSPA 

CEIWECHSELNTSPACEZIFSICSRACE SSIYND.”" 

520 PRINT"{RED SPACE4I"LEFTFULS, 21) "{SPACEZY"LE 

FTEELULE, 

530 PRINT" (GREEN SPACESIISITSPACE2 SDIATUMISPACE 
IWECHSELN" 

540 PRINT"{RED SPACESI"LEFTFLULS,17) 

550 PRINT"{GREEN SPACESITAITSPACEZIGENGRAPHISCHE 
SPACE SLYIABETSPALEI WECHSELN" = WA=O 

540 PRINT"{RED SPAGE#Y"LEFTFCULF,SZI 

570 PRINT"{GREEN SPAREHIGEUGRAÄPH. {SPACE SLIAGErt 
SPACE LIG.BLUE SBIRS" INTLIORBT+.S) /10"SL3Aı "INT 
(10%GE+,.5)7/10 

S80 FRINT"{DOHNM GREEN SPACE# SUIHRIEITITSPACE LI 

G.BIUE BLUEF"US"XGREEN SPACES ES SH SE SZ}r" 

570 PRINT"{GREER SPACES SPYHATUMISPACEZIATSPACE & 
IG.BLUEI"GS$ 

&00 IF UF=0 THEN FOKE 1347 ,652:POKE 556419,14 

&10 IF DF=0 THEN POKE 1427,&2:POkE 556497,14 

820 IF BF=0 THEN POKE 1511,42: PÜKE 357875,14 

£&356 R=100:A=1ıX=-R:POKE 5+21,F:POKE 198,0 

680 Y=SOR (ABS CLOOOO-KEX) I: POKES,X+141: POKES+1,V/ 
gaA+7224 

650 POKE 85+2,—X/2+141:2POKE 9+3,Y7/10%-A+224:X=XtA 
zIF X=R THEN A=-ArR=-R 
660 FRINTZIZSLEFTSLTIS,2)": 
S(T1I$,2) j 
670 GET T#: IF T$="" THEN 5440 

E80 WA=VALCTS} 

&90 POKE 5+21,0:0N WA BDO 2260,720,840,710,940, 
2350 

700 FOKE 5+21,3:60T0 440 

710 U$=LEFTSCTIS,2) +". "4MID$ (118,3,2) :PRINTLEFT$ 
122% ,30)U8:POKE 5+21 ,3:G0T0 670 

720 BR=BT/180*P1:60SUE 1540:605UB 1070:G60SUB 113 
o 

730 REM 

730 REM"#{SPACEFALLEISPÄACE SP 

SZIETTFUNKTISPACEI* 

750 REM 

7&0 FOR N=1 TO 9sGfSsuB 1180: PRINT" CCLEARY"SGOSUB 
1380 

770 POKE 198,0:PRINT "IDOHM SWIEITER: (SPACE}BEL. 
£SPALE STIASTETSPACEIDRUECKEN. " 

790 GET T$:IF T$="" THEN 780 

770 IF WA=2 THEN PRINT "UP HHITE SBYITTETSPAGEI 

WARTEN. {SPACEISI":NEXT N 

B00 GOTO 379 

810 REM 

820 REM"{SPACE SUFHRZEITEINGABE 

836 REM 

B40 UF=1:FRINT"{CLEAR LIG.BLUE SZYEITISPACEITISH 
SE SZYY CSPACEI INISPACEIDERTSPACE SFF:ORM: {SPACE 

Ob. 321SPACEHEINGEBENTSPACET!{REDYI"S 





„"GPCE3 






































"MIDS(T18,3,23 "r "RIGHT 


>LANETEN/EINKSPACE 


























850 FRINTULF 

gen PÜKE 1978,0:U#=""z INPUT "CHOHE DOHNS YELLORF" 
sus 

870 PRINT"{CLEARI" 

g80 IF LENtLFI<>S THEN 849 

890 ZT=VALILEFTS UF, 2) I+VALCRIGHTE (UF, 23) 7560-1 


<115> 
<63> 
<238> 
<13> 
<2> 
<a> 
<243> 
<32> 
<185> 
<125> 
<207> 
<32> 
SPI2> 
“2227 


<165> 
<is3> 


<1175 
<I> 


<:97> 
<52> 


<192> 
<B2> 


<12> 
220> 
<184> 
<107> 
<1B0> 
<13> 
<138> 
<190> 
<90> 
<221> 
<38> 


<14> 


<2A7> 


<177> 


<194> | 


<F2> 
<i1> 


<112> 
1077 


<166> 
<127> 


“a0> 


“97> 
<145> 


<110> 
<125> 
<is8> 
<72> 

<208> 


<209> 
«125 


55> 
<135> 
<18> 
<196> 


programme 


900 TIF=LEFTS (US, 2) +RIGHTS (UF ,23+*00":GDTO 370 
710 REM 

920 REM"ISPACE SEIINGABETSPACEIDESTSPACE SDIATUM 
{=} 

930 REM 

940 DF=1:PRINT"{CLEAR £ITG.BIUE STIAG,„TSHIDNAT, TE 
S3AHRISPACEITNISPACEIDERISPACE SFIORME fSAACEFST. 
03. 19B&IRED}" 

750 PRINTLEFTFiR$,30) 

9650 PRINT" {LIG.BrUFYEINGEBEN! {RED} 

370 FRINTLEFTF{LNF,7) 

790 POKE 198,0:6%="": INPUT 
;6#+ 

9370 PRENT"CCLEARF" 

1000 IF LEN IGS#}<7S>E0 THEN 940 

10109 T=VALILEFTFCGF,ZIH 

1920 M=YAl_(MIDF(GS,4,27) 

1030 J=VAL (RIGHTSIGS,4)2:6070 370 

1040 REM 

1050 REM"{SPACE SFIRUEHL INBSPLUNKTBERECHNUNG 

1050 REM 

1070 FR=7T/248360. 9854444+K1#1440. 02509 

1090 FR=FR+1NT {KO} ®#.0307572+99.201897335+360 

1090 FR=FR-340#INT {FR/3&40} sRETURN 

1100 REM 

1110 REM"ISPACE SBIERECHNUNGTSPACEIDERTSPACE SE} 
RDEKOORDINATEN 

1120 REH 

1130 P=T:EN= 123. 441-.47736008TA/365) /1B04PI 

11430 GOSUB 1749: XE=X3 YE=Yı ZE=ZTRETURN 

1150 REM 

1140 REM"{SPACE SEYERECHNUNG{SPACEIDERTSPÄCE SP} 
LANE TENKOORDINATEN 

1170 REM 

1190 P=Ns X=0: Y=0: 7=0 

1170 IF P<>3 THEN GOSUR 1740 

1200 DX=X-XE:DY=Y-YEıDZ=-2-7E 

1210 YN=DY*EOS (EN) -DZASIN (EN) 

12206 ZN=DY*SINtEN)+DZ#HCDS (EN) 

12390 AB=SOR (DX#DAHYN#HYN+ZNHZUND 

1240 PH=ATNLYN/DXI 

1250 IF BDX<O THEN PH=PI+PH 

1260 IF DX>O AND YN<O THEN FH=2#PI+PH 

1270 TH=FN ASNUZN/AB) 

1280 SW=GE+FR-PH/PI#=180+360 

1290 SW=5W-T40#INT (5W/350) 

1300 SW=SW/180«PI 

13510 HO=FN ASN(SIN(BRI#SINGTHI +COSCBR) HCOSCTHIAC 
0OS15W3) 

1320 AZ=FN ACStISINCTHI-SINLBRISSINGHON IF LCOSCBR 
3*C0S{H0} 37) 

1330 IF SIN{SW >=0 THEN AZ=2H#PI-AZ 

1340 RETURN 

1350 REM 

1340 REM"ISPACE SAYUSGABETSPACEIDERTSPACE SWIERT 
E u . 


1370 REM 

1340 PRINT"ICLEAR LIG.BLUE SPACESI"VSCN) TABLIII" 

AMSPACEI"G#35 

1370 PRINT" LSPACEIUMISPACEF" UF" IYELLONI" 

1400 PRINTUL$ 

1410 PRINT"CORANGE, SP>USITION: LSPACE, SBIRE "BT" CL 
EFT3 „ {SL} Ar "GE: PRINT 

1420 BS="{RED SRIEKTASIENSION{SPACEIINTSPACE 55} 
TD. SPACE SM IN: (GREEN}". 

1430 AN=PH#12:G05UB' 2040 

1440 PRINT"LRED SPYEKLINATIONTSPACEI: TGREENF" CI 
NT CTH/PI*1800+.5)) 7/10 

1450 B$="{RED SDIEKLINATIONCSPACEZIIN{SPALE SIR 
AD{SPACE SH} INT GREEN?" 

14&0 AN=TH*1R0:605UB 7040 

1470 B$="{RED SKIULMINATIONCSPACEIIINISPACE SSHT 
D. {SPACE SH} IN: GREEN?" 

1480 AN={P2-SW+P2/24# (2T+1)) #12: IF AN>ZAHPI THEN 
AN=AN-24#PI 

1470 GOSUB 2040: B$="{RED SSIYTUNDENWINKELTSPACEN 
NISPACE SS}TD. (SPACE SHINE tGREEN?}" 

1500 AN=SWR12:G0SUB 2049 

1510 B$="{RED SAYZIMUTCSPACEBHINTSPACE SGHRADISP 
ACE SM} IN: {GREEN}" 

1520 AN=(AZ-PI}*180:605UB 2049 

1530 PRINT" LRED>{VONCSPAGE SS}UEDEN{SPACEIBERECH 
NETI" 

1540 B&="SEIRHEBUNGSWINKELTSPACEIOF: CEREEN}” 
1550 AN=HO*180: E0SUB 2040:608UB 21A0 

1540 PRINT" {REDIIMSPACE SSITERNBILD: {SPACE GREE 

















"CHOHE DOUNS YELLOW}" 





















































Gompute mi 


<149> 
<32> 


<54> 
<aZ> 


<253> 


<Ib> 
<14> 
<131> 


<225> 
<295> 
<F3> 
<180> 
<121> 
3? 
<163> 
<162> 
<193> 
62? 
<149> 
<170> 
<223> 


<aA> 
<243> 
<229> 
<48> 
17> 


<h> 
<37> 
<37> 
<5> 
<44> 
<52> 
<42> 
<29> 
<213> 
<138> 
<26> 
<106> 
<208> 
<152> 
<152> 


<190> 
4117> 
«<225> 
<207> 
<218> 


<250> 
<238> 
<154> 
<19> 
*32> 
xa4> 


<92> 
<91> 


<2T2> 


<174> 
x246> 


“1725 
<147> 


<129> 
<248> 


<13> 
“2377 


<75> 
<80> 
<1894> 


37 


Programme 


NE'SCH 

1555 IF HO<O THEN FRINT"CHGHE3"MIDS (226,5, A0r ER 
VSCH LIG.RED SUINBICHTRAR" 

1570 FRINT”{REBYIIM{SPACE SZYEICHENISPACE2I 2 TSPAC 
E GREENY”SEF 

1580 PRINT"{REB SEYNTFERNUNG{SPACE}INTSPACEIKMIS 
PACESY = TGREENY "3 (INF(AB#L496+. SII/1OH"ISHIIEL, m 
1570 PRINT" {REDISCHEINBARE SPACE SGHROESSETSPACE 
BISTGREEN}"Z 

1600 PRINT INT (M(P 103 7149600/AB/P1#5480000+,.5) 7 
105 " {SSYEK. TDOHNF "RETURN 




















1610 REM 
1620 REM"ISPACE SKIALENDER 

1630 REM 

1640 PRINT" {LLEARH" 71=721354 

1650 K=3654141T+31#M-46 

1660 IF M>2 THEN K=K-INTt.AxM+2. SINN 
15870 IF M<=2 THEN K=K+INTESI-1) 74) 

1680 TA=K-Z1-.5+Z1724 

690 KO=1K-673960} 71461 

1700 K1=KO-INT tKD) : RETURN 

1710 REM 

1720 REM"{SPFAGE SAFNDMALTEBERECHNUNGEN , LEW 
1730 REM 

17406 TB=M{P,DI*RA 

1750 PE=(M(P „23 +1E-5#TAHMIP, ZI )#RA 

1760 Wi=MtP,4)era 


1770 EX=M{P,S) 
1780 IK=MIP,&)“RA 

1790 A=MiP,7I 

1800 KN=(MEP „BI HLE-SKTARMIP, FI I RRA 

18109 MO=TArTB+WI 

1829 IF MO>PZ THEN MO=MO-P2# INT (MO/P2} 
1830 E=MO 

1840 FOR I=t TO & 

1850 E=E+ MO-(E-EXRSINIEI)) /EL- -EREOSLEN 








1850 NEXT I 

1970 Ve2kATN{SOERÜOLHENI FOL-EXI IHTANC. Sat} 
1890 EL=V+PE+KN+P?2 

1990 EL=-EL-FZ* INT{EL/P2} 

1709 RV=-A&UI-EX*ECOS CE} 

1710 EV=605 1V+PE) 

1920 SV=SIN (V+PE) 

1739 SK=SINIKN} 

19740 CK=COScCKNI 

19506 CI=COStIK} 

1750 SI=SINtIKY 

"1770 X=RV# (CK#EV-SK#SVAD]) 

1980 YaRVREKHUDVHCK#HBVHCT) 

1790 Z=RV#SV#51 

2000 RETURN 
- 2c10 REM 

2020 REM"{SPACE SUP MRECHNUNGENTSPACEI INTSPACE 58 
20GENMASS 

2050 REM 

2040 X1=ABEtAN)F/PIEXZ2=INT (XL) 

2050 X3=50# 1X1-X2) 2 XA4=1INTIXZ+,5). 

2050 IF X2£>0 THEN XF=S6GN {AN} #X2 

2070 IF X2=0 AND X4<>0 THEN X4- SEN (AN) RA 
20806 Pi1=X2:60SUB 2140 

2090 SF=-P$:Pi=X4:GOSUB 2140 

2100 R$=P$:PRINT BE, TAB (2775 358, TABCIDI AR$S RETURN 
2110 REM 

2120 REM"{SPACE SAYUSGABEFORMATIERUNG 
2130 REM 

2140 P$=5TR$(<PL}:PF= SLEFTS OH TSPACEIF" „A-LENIPF))+ 
F$:- RETURN 

2150 REM 


2160 REM"I{SPACE SSHTERNBILDISPACEIBTSPACE STITER 
KREISTEICHEN 

2170 REM 

#180 PH=PH/PI#1RO 

2170 FOR L=0 TO 11:KT=tt0) 

2200 IF FPHCKT THEN 2270 

2210 NEXT L 





2229 CE=HFILIGKT=INT(PH/SO) HL E&=HFKTI RETURN 
2230 REM 

2240 REMTAISPACE SPILANETENWAHL 

2250 REM 

2240 PRINT" TCLEARF"SPECIZIF{LIG,. BLUEYWELCHENISPA 





cE SPILANETEN?CRERI "SPC (ZI LEFTS CUL$, 171" CDOHNZI 


2270 FOR N=1 TO 9:PRINTSPC(LA) "IGREENIE "RIGHTS 5 
TREND LIT ISSPAGEZF URN CREDF" 

2280 PRINTSPE (14) LEFT$ (UL$,LENEVS (N) +6) ENEXT N+ 
POKE 178,0 


<154> 
s251> 
<1890> 


<127> 


126> 


x155> 
<223> 
<181> 
S2AI> 
<156> 
A223 
x244> 
“ETF 

<238> 
cah7> 

<i199> 
sb7> 

<187> 
<97> 


<17> 


<143> 
<B0> 
d5h> 
<1Ob> 
<145> 
<149> 
<BB> 
Szaa> 
<125> 
<138> 
<243> 
“93? 
<195> 
<Ba> 


-<159> 


<11&> 
<115> 
x145> 
<128> 
x118> 
<91> 
<121> 
<9> 
<188> 
<166> 
e101> 
<112> 


<153> 
“1323 
<16> 
<o> 


<233> 
<112> 
“226> 
<177> 
<17B> 
<Z15> 
x47> 

<233> 


aF> 
C2I3E> 


<1I0>- 


<17> 
<78> 
“154 > 
<197> 
2196> 
x179> 
ATTF 
<b> 
zF75 


«1263 
<113> 


<202> 


2290 BET T$:IF T$="" DR TSc"t" OR TEHTQ" THEN 22 
a 

2300 N=VAL(TSI:GOSUB 1640:605UR 1070:GOSUB- 1130: 
GDSUB 1180 

2310 SOSUR 1380:B50T0 770 

2320. REM 

2350 REM" SPACE SAYENDERUNG{SPACEIDERTSPACEIGEOG 
RAPHISCHENTSPACE SLIAGE 

2340 REM 

2350 POKE 198,0:PRINT"ICLEAR LIGIBLYEN"SPECLUI"G 
EUGRAPHISCHE CSPACE SLIABELRED}" 

360 PRINTSPCLDLEFTS(ULF, IE) 

2370 PRINT"IGREEN BOHNS SPACESHLAITTSPACEHDIREKTE 
{SPACE SE} INBABERED}" 

?380 PRINTSPGE (&) LEFTF ULF, 19 

2390 PRINTSPC (6) "IGREEN DORNIC?ITSPACE SAHUISWAHL 
s{SPACE SDIEUTSCHLAND/{SD2 SR REDI" 
2400 PRINTSPC (&) LEFT$ (UL$,2B) 

2410 PRINTSPC (4) "{GREEN DORNILIITSPACE 
2tSPACE SIYNTERNATIONALCRED+" 

2420 FRINTSPC (HJ LEFTSCULS 26) 

2430 PRINTSPCI&}"CLIG.RED DOHNILATLSPACE SHIAUPT 
MENUIELREDF" 

2440 PRINTSPE (#3 LEFTFUL$, 14) 

2450 GET TS: IF T="" OR Tac"ie OR TE9"4" THEN 24 
so 























SAFUSKAHL 














2460 IF T$="4" THEN 370 
24790 DON VALLTS?I GOSUB 2490,2640,2000 
2480 GOTO 3970 


24990 PRINT"ICLEAR LIG.BIUE SPACES SESTINGABEISPAR 
EIDER{SPACEIGEOGRAFHISCHENISPACE | SLIABELREDY" 
2500 PRENTSPGSILEFTS$ (UL&,31) 

2510 PRINT"{LIG.BIVE DDAN> SAHCHTUNG: TRED}" 

2520 PRINTLEFTS HL, 8} 

2330 PRINT" (GREEN>OESTLICHELSPACE SEIRENGENTSPAC 
E>SOWIELSPACE>NDERDLICHELSPACE SE SEIREI-"3 

2540 PRENT"TENCSPACE} IMMERTSPÄCEIPOSITIV: {SPAGEI 
EZ, {SR}. Ss ISPACEISZ. GISPACEFODERTSPACEF 10. ZISPACEI 


























25590 PRINT"WESTLICHETSPACE SLIAENBENTSPACEISOHTE 
tSPACEFSUEDLICHELSPACEZ SBIREI-"5 

2360 PRINT"TENTSPACE} IMMERTSPACEINEGATIV: TSPACEI 
Z.15B}.2-91. FISPACEIDDER- 35, ZISPACEI" 

2570 PRINT:GF=1 

















2580 INPUT" {YELLGN SLIRENBE: TGREENY "SGESTSE=VAL 
GEF} 

‚2570 IF GE$="" GR ABS{GEI>180 THEN PRINT" (UP23": 
GOTO 2500 

2600 PRINT 

2610 INPUT" YELLOW SBIREITE: GREEN} "SBTS:BT=VALC 
BT#) 

2620 IF BT$="" OR ABS{BT}>LBO THEN PRINT"LUP2Y": 
GOTO 2610 

2630 RETURN 

2630 PRINT" {CLEAR} "SPC (183 " (LIG.BEUEHWELCHELSPAC 


E SEIABEFLREDI" 

2650 PRINTSPE (LA) LEFTFIULF, 12} 

2660 PRINT" IDOHM GREENILAITSPACE SHIAMBURB"EPC IF 
I"EBI{SPACE SBIREMENTDONNF" 

2670 PRINT"LCITSPACGE SBIERLIN"EPE 10) "LDITSFACE 

SHFANNOVERCDOUNF" 

2680 PRINF"TEITSPACE SBEIRAUNSCHWEIBISPACER LIG.R 
EDILFITSPACE SM3ABDEBURGDOHNI" 

2690 PRINT"{GREEHITOISPACE SDIORTMUND"SPE(BI" CL 
IG.REDIEHITSPÄCE SLYIEIPZIBLDOHN}” 

2700 PRINT" TGREENILIITSPACE SDIUESSELDORFESPACES 
LIG.REDILITTSPACE SDIRESDENTDONNF" 

2710 PRINT" (GREENFEKICSPACE, SKIDELN"SPEAILIPELIE 
SPACE, SFIRANKFURTLDOHN}" 

2720 PRINT"LMI{SPACE SN>ANNHEIM"SPL (BO) "ENITSPACE 
SNHUERNBERBEDOHR} " 

2730 PRINT"LOITZPACE SSIAARBRUECKENTSPACESFLPITE 
PACE SRIEBENSBURGTDOHNF” 

2740 PRINT" EOITSPACE SKHARLSRUHE"SPE (7) "IRITBPAG 

E SSHTUTTGARTIBDANF" 

2750 PRINT"ISI{SPALCE SAYUGSBURGB®SPC (BI "ETIESPAGE 
SMIUENCHENCDOHNF" 

2780 PRINT" {RVSONFLUNESPACEJKEINE{RFSOFEI "ı POKE 
198,0 

2770 GET TSs IF Tte"" OR TSC"A®r OR T$>"U"r THEN 27 
70 

2780 IF T$="Ü" THEN RETURN 

2770 BT=BN(ASCTF) 64) 1 BE=SLNLASC (TE) -64) Fels RE 
TURN 

2800 PRINT" {ELEARI"SPC (14) " {LIG.BLUEIWELCHETSPAG 
E SLIABEFLREDI" 




















Compute mi 


<71> 
21205 
<FP> 
<188> 


233 
<18H8} 


«1F6b> 
xZO> 


x31> 
2277 


<200> 
<246> 


<135> 
<242> 


2204> 
SR2T? 


«59 > 
<al> 
<167> 
<19> 
£33> 
<14> 
39> 
<143> 


<82> 


2037 
<100> 


<121> 
<174> 


A27> 
x203> 


<207> 


<49> 
<aR2> 


<107> 
<245> 


<83> 
<109> 
<195> 
<192> 
x65> 
<172> 
<iF9> 
<144> 
x535> 
<192> 
<3b> 


<252> 
s25> 


x98> 


<11> 
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2810 PRINTSPEILAILEFTFLULE 12) <149> 
2820 PRINT" CPEHN GREENITAJTSPACE SOIELG"SPE 123" 
IBILSPACE SMIOBKAULDOHNF" <188> 
2830 FRINT"LEITSPAGE SKHOPENHABENTSRFACESITDILSPA 

CE SWIRRSCHAUTBOHNF" <49> 
2840 PRINT"LEITSPACE SLIONDON"SPG CO "TFILSPACE 
SPIRAGTDOHN}" <11> 
2850 PRINT"LEITSPACE SPIARIS"SPCEIL) "EHITSPACE 8 
RIOMIDOHN)" <78> 
2840 PRINT"EITISPACE SHIANHATTANGLSNF. TSYI. HISPA 
CEHLIICSPACE SMIADRIDIDDUNY® <237> 
2870 PRINT"EKILSPACE SAPTHEN"SPCILII "ILITSPACE 5 
L31SSKBUNIDDUN}" <219> 
ZE86 PRINT"IMITSPACE STIOKYO"BPE(III TENILSPACH S . 
LIOBSESPACE SAINGELESCHOHN}" <135> 
2890 PRINT*LOITSFACE SKIAIRD"EFCAINITEPICHPACE $ 
HIONGCSPACE SKIUNBEBONNY" <186> 
2700 PRINT"IDILSPACE SS} INBAPUR"SPCIB) "LRITSPACE 
SRYIOTSPACEIDETSPACE SIHANEIROCDOHNF" <229> 
2710 PRINT"LSI{SPACE SKHAPBTADT"SPE (HI ETITSPACE 
SHIELBIRIRNETDOHN? " <50> 
2920 PRINT* {RVSCHILUITSPACEIKEINETRFSOFEI LPOKE 

198,0 <197> 
29306 GET T$ıIF T$="" OR TECH" OR TS>"UR THEN 29 

30 <99> 
2949 IF T4="Ü" THEN RETURN <136> 
2950 BT=BI(ASCITS) -44) 1 GE=LI (ABCITSI-64) 1BF#l RE 

TURN <129> 
2960 REM «223 
2970 REM"ISPACE SEIINLESENTSPACEIDERISPACE SBHAT 

EN «132> 
2920 REM <u2> 
2990 FÜR I=1 TO StREAD VELDIANEXT I <255> 
3000 FOR I=0 TO 124READ HEiIJıNEXT I <129> 
3010 FOR I=0 TO 11sREAD ICDIANEXT I £99> 
3020 FOR k=1 10 104FOR I=0 TO BıREAD Mtl+1,K)ıNE 

XT TıNEXT K <52> 
3030 FOR I=1 TO ZO#READ BNCII,LNCIIINEXT I <60> 
3040 FOR i=1 TO 204READ BEI) ,LECDIINEXT 1 <186> 
3050 FOR E=704 TD 755: POKE I,CıNEXT IıPOKE 704,3 

tPOKE 707,3:RETURN <128> 
3060 REM <142> 
3070 REN"{SPACE SBIEZEICHNUNGENCSPACEIUNDISPAGE 
SKIHONSTANTEN <233> 
3089 REM <163> 
3090 DATA "tSINERKUR" ," CSVIENUS” „"ISSHONNE" "CEN 

JARG" „"CSIHUPITER" „"SSIATURN" „= ISUHRANUG" "CE 

EPTLN® x203> 
3100 DATA "tSP>LUTO" <105> 
3:10 DATA "SEI ISCHE" „" (SHIIDDER* „"CSSITIER" „15 

x7> 


ZIWILL INGE" „" TSKIREBS” „* {SLIDEWE" „SI UNGFRAU® 


tips & tricks 


3120 DATA "ISWIAABE" „" {S53KDRPION" „"LSSICHUETZE* 
." CSS TEINBOCK" „" ISHIABBERMANN® ‚"{SEITISCHE" 

3130 DATA 26,50,87,119,139,174,214,239,265, 301,3 
29,351 . 

3140 REM 

3150 REM* {SPACEIHTSPACE SPILANETENDATENISPAGEI« 
F1&0 REN 

3170 DATA 4.092324 ,1.60213,. 7554, 524032877 „„ 0330 
509597 ,. 033455509 

3180 DATA „0117306716, 00598111 ,. 0039327777 29.0 
3153,54. 76355,102.510382 

3190 DATA 284.23447,273.72735,339. 122155,98.8103 
1,27&.27020, 113.622,1. 01,1.37 

3200 DATA 4.71,2.39,1.64,2.97,2.7,8.92,5.64247.7 
122, 181. 36647 ,358. 015045 

3210 Data 274.55739,341.3682,11.399,33. 28, 202.05 
339.093, . 2056295, .0057849 

3220 DATA „01677, , 093382, .OABASB, „ONS6328, „04632 
45,.009,0.2522,7.004 

=230 DATA 3.39438,0,1.B4983, 1. 30447 ,2-.489572,.77 
23535,1.7720791, 17.1407 

3240 DATA „39709784 ,. 72335302, 1,1. 3234504 ‚5.202561 
9.554747 ,19.21814,30. 10957 

3250 DATA 39.4953,48.03496,76.45477,0,49. 36467, 1 
00.20147,113.445197, 73.585168 

3240 DATA 131.50571,109.4535,3.25,2.47,042411,2.7 
7,2.37,1.37,3.01,-1.3,4.84 

3270 DATA 12.2,1390,6.6,143,120,52,44.5,7 

3200 REM 


3270 REM" TSPACEIHTSPACEFBEDGRAPHISCHEISPACE SLIA 


BEN, NATISPACE}I* 
3300 REM 

3310. DATA 33.6,10,53.2,8.8,52.5,13.4,52.3,9,.7,52 
-3,10.5,52.1,11.6,51.5, 7.5 

3320 DATA 51.4,12.4,51.2,6.7,51.14,13.7,50.9,6:9, 
50.1,.8.7,49.3,8.5,49.5 11.1 

3339 DATA 49.3,7,49,12.1,49,8.4,48.8,9.2,48.4,10 
97,99. 2,11. 

3340 REM 

3350 REM" (SPACEI=TSPACEIBEDBRAPHISCHEISPACE SLR 
GEN, INTISPAGEI® 

3340 REM 


3370 DATA 59.9,10.7,53.8,37.6,9547, 12.8, 52. 2,21. 


1,51.6,-.2,50.1,34.4,48.8,2.8 
3360 DATA 41.8,12.5,40.8,-74,40.4,-3.9,30.9,23.7 
‚„38.7,-9.9,35. 7,139. 7,34,-118.2 
3390 DATA 30.1,31.3,22.3,114.2,1.3,103.8,722.8,- 
43.3,-33.9,18.3,-37.9,145 

ENDE DES LISTINGS 





Deutsche Fehler: 


Abgetippt wird das Programm 
"FEHLER-DATA”, Dann wird 
es mit "RUN” gestartet. Sicher- 
heitshalber sollte es vorher abge- 
saved werden.-Nach dem Starten 
kann man zwischen Disk oder 
Cassette wählen. Nun wird der 
Name gewählt unter dem das 
Programm abgespeichert werden 
soll. Ist das gesc ehen, wird das 
Programm zuerst im Speicher ab 
Adresse 49152 erzeugt und dann 
gespeichert. Das Programm 
"FEHLER-DATA” ist also nur 
ein sogenanntes Ladeprogramm. 
"FEHLER (49152)” ist das fertige 


Programm. Es wird mit ‚8,1 bzw. 


11/86 


‚1,1 geladen, und mit SYS 49152 
gestartet. Dann wird "NEW” ein- 
gegeben. Auf die englischen Mel- 
dungen kann man mit POKE1,55 
zurückschalten, 


Die Meldungen in den Data- 
Zeilen 440-730 sind natürlich nur 
ein Vorschlag. Sie können belie- 
big abgeändert werden. Folgendes 
ist aber dabei zu beachten: Keine 
Meldung darf länger als eine Dara- 
Zeile sein. Das letzte Zeichen je- 
der Meldung muß zusammen mit 
der ”SHIFT”-Taste eingegeben 
werden, damit der Computer das 
Ende erkentten kann. 


<5> 
<22> 
2237 
<143> 
<aA3r 
«3> 
“2187 
<31> 
s10> 
<140> 
x173> 
«2393 
<28> 
x206> 
<218> 
<217> 
«1077 


<10> 
«127> 


*127> 
<130> 


“1h9> 
<i4bB> 


x36> 


SıR2> 


<165> 
<51> 
193 





Kommunizieren Sie mit 
ihrem Computer in Ihrer 


Mutiersprache! 


C-44 LISTING + CHECKSUMMEN (16 91.0} 


REHBHREHHSSSSHRIHIHHIHISHHHIRHRR HIER 





100 

110 REM# FEHLERMELEUNGEN DEUTSCH * 

120 REM# <C} 1985 BY MR-SOFT * 

130 REM RONALD MAYER * 

140 REM* A-4042 THENING Z24/PRUSTRIA * 

150 REM ee 

160 FRINT"TELEAR YELLOHFTSIFOKES3Z201 ,6: POKESS200, 
& 


Somputbe miß 


<211> 
<973 
<26> 
<155> 
<204> 
<5> 


<i85> 


39 


40 


tips & tricks__ 


170 PRINT" {DOHH2 RVSON SPACEITISPACE RVSOGEFIASSE 
TTEISPACEIODERTSPACE AYSON SPACEIDISPACE RVSOFF} 
ISKETTETSPAGEITISPACEF" 

120 POKE1FE,0:WAITLFB, 1: BETAF: LFASC"C"ORAF>"D"TH 
ENI1EO 

1970 STtABTIAF) -67)#87+1E PRINT" CRFSON SPACEI"AS"TS 
PACEY" 

200 AN=492867:P0=49225 

210 REMRRRSHSHRRRAHAHI HH ET 

220 REM# MASCHINENFROGRAMM * 

230 REM EHEN 

240 FORI=4915270472261 READA: POKEI „Az NEXT 

250 DATA150,0,162,160, 132,254, 133, 255,177,254,14 
5,254,200,208,247, 230,255 

2£0 DATA165,255,261,172,144,241 ,162,0,189,54,192 
,157,105,163, 252,224 ,21,14% 

270 DATA245,162,0,189,75,192,197,40,163,232,274, 
650,193 .245,167,54,133,1,96& 

280 DATAiS,70,69,72,76,69,82,0,32,73,78,32,0,13, 

















10,56,69,82,69, 73,88 
279) REM UNE HN EERH 
300 REM# SCHREIBEN AUF DISK/CASS * 


310 REHHEBERRHRREE EN ÄENEE 

320 POKE1F, 11 INPUT" CDOHN#INAKETSFACEIDESTSPACEIF 
ROSRAMASTSPACEI "3; NSS POKELF,OF PRINT: FRINTı PRINT 
350 IFS=BTHENNS=" 0: "+NF 

340 FORI=1T030: READF$ 

350 FORJ=1TOLEN IF$} ı PDKEAD+J „ASC CHIDSIFS ,J,133EN 
EXTJ 

340 FN=PB+2: POKEPD+1, (AD+1} 7256: POKEPO, AD+1-254* 
PEEK tPE+E} TAD=AD+LENIFF) ANGXTI 

376 AbsAb+1:HI=INT {AD/256) 3 LI=AD-HI#25A 

350 SYS57812N$#,5: POKE193,0r POKE174,192: POKE174 1. 
B:FOKE17S,HI: 8Y542957 " 

370 IFS-1THENEND 

200 DPENI ‚8,153 INPUT#1 ,A,B$,2 Ds PRINTA,B#,C;DiCL 
BSEL:END 

410 REMEHREEHHRRIIHHSBHHHHHHHESHHHIHIH 








<208> 
<105> 


<3h> 
<50> 
<as> 
*36> 
s55> 
<o> 


<0> 
<231> 
<191> 
<x241> 
<x14&6> 
<13> 
<16&> 
<154> 
1057 
“2077 
<iill> 


<177> 
sb7> 


<167> 
<21F7> 


<205> 
‚ <10> 


420 
430 
440 
A250 
A460 


REM® FEHLERMELDUNGEN * 
REMIS RE 
DATAPZULSPACEIVIELELSPACEIFILELSSI" 
DATA"FILECSPACEHBERETTSESPACEHÜFFELSNF" 
DATA"FILE{SPAGEINIEHTISPÄCEIOFFEISNI" 

470 DATA"FILETSPACEINIEHTLSPACEIGEFÜUNDE CSN} 
ABO DATA"PERIPHERIETSPACEFISTISPACEINICHT SPACE 
BEREITSTI" - 

490 DATA"KEIN{SPACEISCHREIBFILTSEI" 

500 DATA"KEIN{SPAGEFLESERILISEI" 

510 DATA"PRESRAMMNAMEISPACEIFEHLISTI" 

520 DATA"LNERLAUBTESPACEIGERAETENUMMELSRS" 

530 DATA"NEXTISPACEIONNELSPACEHFOTSRH" 

546 DATA"PROBRAMMAUFBACSUF" 

550 DATAFRETURNISPAGE OHNE CSPACEISOSLKSB}" 

540 BATA"KEINECSPAGEFDATENTSPACEIMEHTERF" 

570 DATA"UNERLAUBTETSPACEIMENG SEI" 

580 DATA"UEBERLAU{SEF" 

590 BATA"SPEICHERTSPACEIVOLISL}" 

600 BATA"ZEILETSPAGEINIEHTSPÄCEIVORHANDE SH} " 
&10 BDATA"FELDISPACEINICHT {SPACEIRIMENSIONIERLSTI 















































6209 
13" 
630 
640 
y" 
550 
[7-10] 
570 
6830 
70 
700 
710 


DAFA"FELD{SPACE}BERELTSTSPACEIDIMENSIONIERTS 








DATA"DIVISTONTSPACEIDURCH TSPÄCEINULISLY" 
DATA"KEINESFACEIDIREKTMODUSTSFACEIMDEGLIETSEH 











DATA"VERTIPP{ST}" 
DATA"STRINBTSPACFFZIHSPACEILANGSGH" 
DATA"FILE{SPACEIDATELSNI" 
DATA"FORMELSPACEIZUHSPACEIKOMPLIZIERLST}" 
DATA"CONTCSPACEINICHTISPACEIMIEHLIGCTSHF" 
DATA"UNDEFINIERTETSPAGEIFUNKTIOCSN}F" 
DATA"VERGLEICTSHF" 
720 DATATLADISEI" 
730 DATA"ABBRUCTSHF" 

ENDE DES LISTINGS 

















<28> 
<50> 
%13> 
<191> 
<A6> 
<1335> 


<238> 
<180> 
<164> 
<40> 
<200> 
<59> 
<161> 
<36> 
<115> 
<220> 
<91> 
<188> 
<211> 


<95> 


<220> 
<64> 


<182> 
<B> 
<201> 
<97> 
<26> 
<103> 
<Th> 
<132> 
<97> 
<107> 








EM-ZEILEN 





C-54 LISTING + CHECKSUMMEN IC vi.00 


190 REBHFSRBSHERRRRHHRTHHTE EEE 
DEZ 2 2202 212.27 202725 2727 2°27202 20772 per or er ern 
110 REM#« 

* 
120 REM#* REM - ZEILEN KILLER 
130 REM+ 
OMAS GUENTHER * 
140 REM#« 
RANIENSTR. 7 " * 
150 REM« FUERC — 64 
&0 NORDHORN * 
160 REM& 


von TH 
GE 


44 


* 
170 REMOTE NK U 
Lö 2 2 2 22020202 202 2 2 272 2 272 2 2272727202 2 200272 02 


180 s 

170 = 

1000 REMERERRREE ER REREHREEER5O BLOE 
KVERSCHIEBEROUTINE. 

1910 DATA AS,2BD :REM DCAOF EDA $2D ı LETZ 
TES ZU VERSCHIEBENDES BYTE 

1922 DATA 85,22 :REM CAt1 STA #22 ;s IST 
FRIGRAMMENDE — 1. 

10309 DATA AS,2E REM CIA1S LDA $ZE ’ 

1040 DATA 85,23 :REM C415 S5TA #723 3 

10590 DATA A0,C0 REM C#17 LDY #500 ; ZAEH 
LER AUF NULL. 

1050 DATA Bı,FD <REM C419 1.DA ($FDI,Y: BYTE 


LADEN UND 


SPRIT 


S2u7E 


Haben Sie sich nicht schon oft 
darüber geärgert, daß die Rem- 
Zeilen in Ihren Basic-Program- 
men, die es anfangs sehr über- 
sichtlich kommentierten, wert- 
vollen Speicherplatz wegneh- 
men? Auch Zugriffszeiten auf 
Floppy und nicht zuletzt Dataser- 
te werden unnötig verlängert. 


Das Programm "Rem Zeilen Ki- Minuten. 

ler” schafft hier Abhilfe! Nach kk%x 
1070 DATA F1,FR :REM CA1B 5TA (#FB},Y; ABSP 

EICHERN. 

1080 DATA E&,FB :REM CA1D INC $FB ;s ZIEL 

VEKTOR INCREMENTIEREN. 

1090 DATA D0,02 REM C4IF BNE 80423 3 

1100 DATA EA,FC :REM D471 INC $FC 3 

1110 DATA E&,FD :REM 6423 IND $FD ; LADE 

VEKTOR INKREMENTIEREN. 

1170 DATA DO,OZ :REM C425 BNE $6429 5 

1130 DATA E&,FE :REM 0427 INE *FE i 

1140 DATA A5,FD tREM 0479 IA $FD ; PROB 

RAMMENDE {LUÜW) SCHON ERREICHT? 

1150 DATA CS,22 REM C42B CHP #722 Fe 
11406 DATA DO,ERA REM C42D BNE 30419 5 NEIN 
‚ WEITER. 

1170 DATA AS,FE REM CA7F 9 LDA $FE s PROG 
RAMMENDE (HIGH) SEHON ERREICHT? 

1180 DATA 15,25 REM 0431 ECMP #23 5 

1190 DATA DO,EA REM T433 BNE $0419 ; NEIN 
‚ WEITER. 

120G DATA 20,33,85 :REM 0435 JSR $N553 ; BASI 
C-ZEILEN NEU RINDEN. 

1210 DATA 85,22 :REM 0438 LDA +72 ; ORIG 

E ROUFINE LEGT NEUES PROBBAHMM- 

1720 Data 18 REM C43A CLE ı ENDE 
- 2 IN $7?7$2% AB. 

1740 DATA 67,02 sREM C43B ADE #402  ; PROG 

RAMMENDE IM DIE ADRESSEN . 

12509 DATA 65,72D REM CASD 5TA #20 s #2D/ 
*ZE SCHREIBEN. “ 

1260 DATA A3,23 :REM DAIF LDA 323 F 

1270 DATA 67,00 REM C441 ADC #800 5 


Compute mi 


dem Starten des Maschinenpro- 
grammes durch ’Sys 50258’, wer- 
den alle Zeilen, in denen nur ein 
Rem-Befeht steht, ganz und ande- 
re Remzeilen hinter dem letzten 
Befehl, vor dem Rem gelöscht. 
Der Programmablauf dauert je 
nach Anzahl der Rem-Zeilen, 
zwischen einer Sekunde und zweı 


£170> 
<178> 
x14> 

“10153 
«150> 
«2275 
<251> 


ED talc 
s115> 


e1l63> 


<70> 
Ae32> 


©178> 
“84> 
<90> 
“293 
<215> 
“702 


<70> 
y5> 
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1780 DATA 85,2E 
1270 DATA 850 

DER EOPTERROUTINE. 
1275 BREMSE 
EENDE ERMITTELN. 


sREM 0443 STA $2E 
REM 7445  RTS 


“ur 


1306 DATA A0,00 :REM C446 LDY #800 F 

NG DER NAECHSTEN FROGRAMMZEILE 

1310 DATA B1,7B ‚REM C#49 1LDA (8330) ,Yı 

ENDE DES ZU LOESCHENDEN BLOCKES 

1320 DATA 85,FD :REM C44A 5STA SPD 3 

NIEREN {NACH $FD/SFE)}. 

1330 DATA CB ıREM C44C INY 3 

1330 DATA B1,36 «REM G44D LDA (#35B},Y5 

1350 DATA BS,FE :REM C44F° 5TA $FE ; 
3 


1360 DATA 6509 :REM C451 RTS 
1365 BREMER HE ENEEEE 
TPROGSRAMM {EINSPRUNG}. 


1370 DATA AS,ZB :REM C452 LDA $7B 3 
OR *#3B/$3C AUF PROGRAMM — 

300 DATA 95,28 REM 0454 5TA #3R F 
NG. 

1390 DATA AS,ZC REM C456 LDA $2C 3 
1400 DATA 85,3C REM 0457 S5TA $3C 3 
1410 DATA 0,08 REM C45A LDY #601 3; 
RAMMENDE SCHON ERREICHT? 

1420 DATA B1,38B sREM CA5SC LDA 18338) ,Y35 
1430 DATA D0,06 :REM CASE BRNE $CAb4 35 
„ WEITER. 

1440 Data 20,60,R4 =REM [460 JER HN680 3; 
- BEFEHL. 

1450 DATA &0,EA,ER :REM [463 RTIS 5 

PES REM - ZEILEN KILLERS. 

1440 DATA An,oa zREM C466 LDY #504 3 
CH ERSTES BYTE DER ZEILE 

1470 DATA B1,ZB :REM C46B LDA 1$32) „Y3 
"F {TOKEN FUER REM}? 

1480 DATA C9,BF REM C4an CMPOSSOF 5; 
1450 DATA DO,11 REM CA&C BNE SC47F 4 
„ ANDERE BYTES PRUEFEN. 

1500 DATA A5,3B REM CA4E LDA $5R ’ 
T ZEILENANFANG ALS BEGINN DES 

1510 DATA 85,F8 sREM 1470 STAA $FR 3 


UESEHENDEN BLOCKES, 


1520 DATA 5,30 :REM C472 LDA 50 3 
ZE ZEILE MUS55 BELOESCHT WERDEN} 

1530 DATA BS,FE REM 2474 STA #F6 H 
1549 DATA 720,46,C4 ıREM 0475 JSR SCHA6 3 

KENDE FINDEN UND 

1550 DATA 20,0F,C4 :REM 1479 JSR $CA0F 3; 

EREN. 

1560 DATA 40,59,C4 :REM CA47C JMP sCAsa 3 

HSTE ZEILE TESTEN. 

1570 DATA CO :REM CA7F INY y 

OR AUF NAECHSTES BYTE. 

iSa0 DATA B1,3B sREM 0480 LDA (438) ,Y5 

ADEN. 

1570 DATA DO,OF <REM C4B2 ENE $C498 3; 

CH NULL? NEIN, DANN WEITER. 

1600 Data A9,00 REM 0484 LDY #800 35 

T ZEILENENDE. ERSTEN BEIDEN 

1610 DATA B1,58 ıREM CABs LDA t$3B) ,Y; 

S DER ZEILE (LINKADRESSE} GEBEN 

1620 DATA At :REM CA98 TAX : 

SSE DER NAECHSTEN ZEILE AN. 

16350 DATA CB "REM 6489  INY s 
E IN VEKTOR LADEN. 

1640 DATA Bi,3B aREM C4BA LDA (#587 ,Y3 
1550 DATA 85,5B ıREM CABC 5TX #IB 3 
1660 DATA B5,30 ıREM CABE STA $ZC ; 
1663 DATA 4C0,5R3,C4 :REM 6490  JMP DAS 3 
ECE, NAECHSTE ZEILE. 

1565 DATA 69,8F ıREM 0473  EMPOHEBF 4 
FLER REM? 

1670 DATA DO,EB :REM 04953 BNE SCA7F 5 
„ ZAEHLER ERHOEHEN. 

1450 DATA B8 =REM 6497 DEY ; 
T ZAEHLER ERNIEDRIGEN UND VOR- 

1590 DATA A1,3H REM 0498 1.DR ($7B3 ,Y 
BYTE TESTEN. 

1790° DATA E9,20 zREM CA9Nn CME #320 5 

Er 

1741G DATBS FG,FF «REM CASC BER 62497 3 
ZAFHLER WEITER ERNIEDRIGEN. 

1720 DATA (9,9 sREM C49E EMP #3IA 3; 
ELPUNKT? 

1730 .DATA DO,o4 :REM E40 BNE $CAA& 3 
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ENDE 
BLOE 
ANFA 
ALS 


DEFI 


HAUP 
VEKT 


ANFA 


PRIG 


NEIN 
cLR 
ENDE 


SLEI 


NEIN 
SONS 
zuL 


IGAN 


BLOG 
KOPI 
NAEC 
VEKT 
EINL 
sLET 
SONS 
BYTE 
ADRE 


DIES 


ZURU 
COBE 
NEIN 
SONS 
IGES 
SPAC 
BANN 
vurr 


NEIN 


<pi> 
<B0> 
x22> 
*259> 
<110> 
<198> 
<2435> 
<121> 
<br> 
<1T53> 
<111> 
<205> 
22897 


“1977 
<12> 


<22> 
x200> 


<B7> 
<203> 
SEIS> 


<237> 


2077 
sulr 


<227> 


<164> 
<123> 


“B> 
<10> 


<b7> 
<185> 
“107% 
<143> 
<F1> 

<229> 
<155> 
<219> 
<95> 

«213> 
<174> 
<228> 
<194> 
<253> 
<1B1> 
<B1> 

<90> 

<b2> 

<154> 
<Z48> 


<152> 


pr 





„ WEITER. 

1740 DATA C0,04 REM CAaA2 CPY #804 ; WENN 
JA, ERSTES ZEICHEN IN ZEILE? 

1750 DATA DO,Fi TREM CaA4 EBENE #0497 3 WENN 
NICHT INY HEBERSPRINGBEN. 

1760 DATA CB :REM D4Ab  INV ı DOPP 

ELPUNKT NICHT LOESCHEN. 

1770 DATA A9F,00 REM 0447 LDA #800 3; NULL 
(FLAG FÜUER ZEILENENDE) AN 

1780 DATA 71,38 sREM C4AF STA ($3B} ,Yı MOME 

NTANE VEKTORPOSITION SCHREIBEN. 

1800 DATA CB REM C4AR INY $ ZAEH 

LER ERHOEHEN. 

1810 DATA 98 :REM CARE TYA ; UND 

ZU VERTOR IN #3B/#3C i 

1A?0 DATA 18 zREM CAAD CLC ; ADDI 

EREN. - . 

1030 DATA 65,38 «REM CAAE ADC 438 + DIES 
ERBIBT DEN ANFANG BES ZU 

1840 DATA 85,FB sREM CABO STA FB 5 LIES 

EHENDEN BLOCKES. 

1850 DATA AS5,3C ıREM C4BZ LDA 8IC, 3 

1860 BATA 69,00 ıREM CaBa ADC #300 3 

1870 DATA 85,FEC EREM CAB& S5TA SFC N 

1280 DATA 70,44,C4 sREM CABE JSR 80446 5 ENDE 
DES BLOCKES ERMITTELN. j 

1090 DATA 20,0F,04 «REM C4BB JSR SC40F 5; KOPI 

EREN. . 

1700 DATA .4C,5A,C4 ıREM CABE JMP $C45A 3; NAEC 


HSTE ZEILE, 
9000 REMHRIRHHRSSHRTHHIHRISHRHHBEEN REN TREE 
FRIST THIRIHIIRHE THE ENR 
7010 = 

8 
7020 z PORESSZBO , O0: PDKES3Z81 ,0: PRINT" {CLEAR WRIT 
E SPACETFEINENTSPACEFAUSENBLICKTSPACEIBITTEL {SPA 
CEIDIEISPACEIDAÄTEN" : 
7030 = 5=D:PRINT" IHHITEI" PRINT" {SPACESIWERDENIS 
PACE}YZUNAECHSTISPACEIEINGELESENTSPACE}!" :FÜR N= 
oO T0 177: 

















9040 + READ A$ + BS= LEFTF(AF,1I ı C$= MIDEiAF,2 
‚1 zz Ft=B# ;G65URB 9500 ;B=F 3 
FOSO FS=C$& 4 SOSUB 9500 : D=F z A=tBslis)+b : 5 


=5+A ; POKE N+59191,A ı NEXT Na 

7060 x IF 5<>231B2 THEN PRINT"IGLEAR BOHNIO SPAC 
EIZIFEHLERISPACE}ENTSPACEIDATASTISPACEZ}'" SEND: 
70970 2 PRINT"{HOHE DOWNS, SPACETIMASCH INENCODE {SP 
ACEFABSPEICHERN?TISPACEI"SGET Af 3 IFAF=""THENYOTO 











7070 x IFAS="J"THENGPEN1,8,1,".KILELREM" ı 
1,CHR£{OIZCHRFC 54) 5: GOTOF110O: 

9100 = PRINT"ICLEAR DOHNT SPACEZIDASTSPACEIPROGR 
AMMISPACEIISTISPACEINUNISPACE>BETRIEBSBEREIT!" ı 


PRINT# 








"END: 
F1ild 2 FOR N= 0 TO 177 :PRINT#l „CHRS$ (PEEK (N+5019 
1?) =NEXT N =CLOSE1I SGOTD9100: 
7140 = 
F300 REMEMBER 


EEE ER NETTIERHHRE 


7510 2 IF F#="A" THEN F#="10" : REM # HEX - DE 
ZIMAL UMWANBLUNGSTABELLE + bi 
7520 = IF F$="B" THEN F$="1i" : REM * 

* 1 
9530 2 IF Ft="C" THEN F$="12" = REM #* DIE 
MIT DIESEM PROGRAMM * E 
95340 2 IF F#="D" THEN F#$="13" : REM %* ABGESP 
EICHERTE VERSIDN MUSS * . 
9550 5 IF F$="E" THEN Fs=e"14" 2 REM Oo # ABSO 
UT GELADEN WERDEN. = 2 
560 : IF Fs="Ft THEN F$="15" : REM # 

* ° 
7570 2 F=VRLIF$ RETURN ı REM * (W 178 
& VEN THOMAS GUENTHER * z 


590 REMERSSEEHEIHBIHHBBIRBSHRAIHTHIIHIHHH FH 
EZ 52 275 2 2 2 2 2.2.2202 2.2.22 200 DEE rer 223 


7585 REM# 
#* 
9570 REIM# DER REM — ZEILEN KILLER WIRD MIT 
SYS 59259 BESTARTET ! * 
F&6009 REM* 


” 
9640 REM RIEF 
EEE 
= 
ENDE BES LISTINGS 


Sompube mib 


<209> 
<A3> 
<1&3> 
<27> 
<128> 
<164> 
<131> 
<18> 
<35> 
<167> 
<141> 
<226> 
<110> 
<241> 
<155> 
<A7> 


<145> 


s2i6> 


Sa> 


<141> 
<215> 
“133> 
<206> 
<115> 
<33> 
«21> 
x15> 
<37> 
<164> 
<226> 
<30> 
<247> 
<i46> 
<b> 


“FO? 
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6502-Assembler-Kurs 


Teil 18 i 








Da die Belegung der Zero-Page für effektives Program- 
mieren von größter Bedeutung ist, setzen wir an dieser 
Stelle die Beschreibung dieser Speicherstellen fort. 


ZERO-PAGE TEIL 2 


Adresse DEZIMAL Belegung 
HEX 


$70 
$71-$72 


112 
113-114 
115-138 


122-123 
139-143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160-162 
163 


Vorzeichen für ARG 
Vorzeichenvergleich, Akku #1 gegen Akku 
# 


2 
Akku #1 niederwertig (runden) 
Zeiger ir Kassettenpufter; Länge/Reihe 
CHRGET-Routine; kleines Maschinenpro- 
gramm 
welches Zeichen aus Basic-Text 
hokt 
Basic-Zeiger (innerhalb CHRGET) 
Anfangswert für RND 
Statuswort ST 
Flag für STOP-Taste 
Zeitgeberkonstante für Band 
Laden=0; Verifizieren=1; 
Flag für JEC-Ausgabe 
Seriell hinausgeschobenes Zeichen 
EOT {Fileende} von Band erhalten 
Zwischenspeicher für Register 
Anzahl der offenen Files 
Aktives Eingabegerät 
Aktives Ausgabegerät 
Band Zeichen-Parität 
Flag für Byte-Empfangen 
Flag Direkt-Modus $89 / Programm $00 
Fehlerspeicher für Band Pass 1 
Fehlerkorrektur in Band Pass 2 
Momentanwert Uhr HML 
Serieller Bitzähler / EOI Flag 


$A4 
$A5 
$A6 
$A7-AB 
JACHA 


D 
SAF-$AF 
$BO-$B1 
SB2-$B3 
$B4 

$B5 

$B6 

$B7 

$B8 

$B$ 

BA 
$BB-SBC 
$BD 

$BE 

$BF 

sC0 
$71-$C2 
$C3-3C4 
$C5 

ICh 
$C7 

sC8 
IC9-5CA 
CB 

$CC 
SCD 
$CE 


164 
165 
166 
167-171 


172-173 
174-175 
176-177 
178-179 
180 
181 
182 
183 
154 
185 
186 
187-188 
189 


1% 


191 
192 
195-194 
195-196 
197 
198 
199 
200 
201-202 
203 
204 
205 
206 


Zyklenzähler | 
Bandschreiben Zähler/Bitzahl 
Zeiger in Bandpuffer | 
Arbeitsspeicher für Bandein/ausgabe | 


Zeiger für Bandpuffer und Scrolling 
LOAD/SAVE Zeiger auf Programmende 
Zeitkonstanten für Band-Timin 

Zeiger auf den Anfang des Bandpuffers 
Bitzähler für Band 

Band EOT/RS232 nächstes Bit 

Puffer für auszugebendes Byte 

Länge des Filenamens 

Logische Filenummer 

Sekundäradresse 

Gerätenummer 

Zeiger auf Filename 

Schreiben Shift-Wort/Lesen Eingabezeichen 
Anzahl der zu lesenden/schreibenden Blocks 
Puffer für serielle Ausgabe 

Sperre für Band-Moror 

V/O Startadresse 

Endadresse für Ein- und Ausgabe 

Letzte gedrückte Taste 

Anzahl der gedrückten Tasten 

Flag für RV$-Modus 

Zeilenende für Eingabe 

Cursor Zeile,Spalte für Eingabe 
Gedrückte Taste (64=keine Taste) 

Flag für blinkenden Cursor 

Cursor Zeitgeber 

Zeichen unter dem Cursor 
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SCF 207 Flag für blinkenden Cursor 

$Do 208 Eingabe von Bildschirm/'Tastatur 

sD1-$D2 209.210 Zeiger auf Bildschirmzeile 

sD3 211 Cursorspalte 

$D4 212 Flag für Cursor-Operationen 

$D5 213 Länge der Bildschirmzeile 

$D6 214 Cursorzeile 

$D7 215 Universal-Adresse für mehrere Operationen 

$D8 216 Anzahl der ausstehenden INSERTs 

$D9-$F2 217-242 Bildschirmzeilenanfänge 

$F3-$F4 243-244 Zeiger in Farbram 

$P5$F6 245-246 Zeiger auf Tastatur-Dekodiertabelle 

SF7-$F8 247-248 RS232 Empfangszeiger 

$F%SFA 249-250 RS232 Sendezeiger 

$FB-$EE 251-254 Nicht belegt, steht Anwender zur Verfü- 
gung | 

$EF-$10 

A 255-266 Puffer für Umwandlung Fließkomma nach 
ASCH 

Ende der ZERO-Page 


Wie nutzt man die Zero-Page ? 


Die Zero-Page läßt sich sowohl von Basic aus, als auch mit Maschinen- 
sprache sehr sinnvoll ausnutzen. Wollen wir beispielsweise ein Maschi- 
nenprogramm oberhalb des Basic-Speichers ablegen, weil unser 4k 
Block von $C000-$CFFF nicht ausreicht, so können wır dies folgender- 
maßen erreichen: 


POKE 55, LOWBYTE (niederwertiges Byte der Maschinencode An- 
fangsadresse) 
POKE 56,HIGHBYTE (höherweriges Byte der Maschinencode An- 
fangsadressse) 


Durch die oben aufgeführten POKE-Befehle wird der ZEROPAGE- 
Zeiger für die höchste Basic Speicherstelle verändert. Dadurch läßt sich 
der Speicher oberhalb dieser Grenze für Maschinencode oder sonstige 
Daten nutzen, ohne daß die Gefahr besteht, diesen Bereich durch Basic- 
Operationen zu überschreiben. Der BasicSpeicher wird natürlich 
durch das Herabsetzen dieser Zeigerwerte entsprechend verringert, was 
sich sehr leicht über die FRE-Anweisung nachprüfen läße. Eine andere 
Möglichkeit wäre über die Zero-Page Adressen 43 und 44 den Start des 
Basıc-Speichers zu verändern. Auch diese Methode könnte Platz für ein 
Maschinenprogramm oder sonstige Daten schaffen. Beide Methoden 
lassen sich natürlich ebenso einfach mit Maschinensprache bewerkstel- 
ligen. Eine andere Möglichkeit wäre beispielsweise durch die Adresse 
199 den RV5-Mode ein oder auszuschalten, oder über die Adresse 203 
die Tastatur abzufragen. Die Möglichkeiten sind nahezu unbegrenzt. 


Basic-ROM und System-Routinen 


Neben der Möglichkeit Zero-Page-Adressen zu manipulieren, gibt es 
beim C64 eine ganze Reihe weiterer Speichersiellen, welche sich vor- 
züglich vom Anwender nutzen lassen. Um die Vorteile einiger dieser 
Routinen zu demonstrieren, wollen wir nun ein kleines Assernblerpro- 
gramm schreiben. Dieses Programm soli dem Basic-Programmierer er- 
möglichen, den Cursor an eine beliebige Stelle zu positionieren, ohne 
auf Steuerzeichen oder ähnliches zurück greifen zu müssen. 


Folgende ROM-Routinen werden für diese Programme benötigt: 


CKCOM=$AEFD Auf Komma prüfen 


Diese ROM-ROUTINE wird für die Paramererübergabe benötigt. 
Nach ihrem Aufruf holt sie über die CHRGET-Routine ein Zeichen 
aus dem Basic-Text. Ist dieses Zeichen ungleich dem Komma, so wird 
- ein SYNTAX ERROR ausgegeben. Ansonsten wird die ROUTINE 
durch einen RTS (RETURN) beendet. 
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GETBYT=$B79E Byte holen 


Diese ROUTINE wird ebenfalls für die Parameterübergebe benötigt. 
Nach Ihrem Aufruf wird über die CHRGET ein Zeichen aus dem 
Basic-Text gehokt. Entspricht dieses Zeichen einer Zahl, so werden so- 
lange Zeichen aus dem Basic-Text geholt, bis auf ein Leerzeichen bzw. 
einen Buchstaben getroffen wird. Danach werden alle eingelesenen 7if- 
fern zu einer echten 8-Bit Zahl verarbeizer. Diese wird dem X-Register 
übergeben, und danach über RTS (RETURN) zurückgesprungen. 


CURSOR=$FFFO Cursor setzen _ 


Das Unterprogramm CURSOR hat zwei Funktionen. Bei Aufruf mit 
gelöschtem Car setzt es den Cursor auf die Zeile und Spalte, die 
im X- und Y-Register stehen. Ruft man den Cursor dagegen mit gesetz- 
tern Carrfilag auf, wird die momentane Cursorposition geholt und im 
X- Y-Register übergeben. In unserm Beispiel verwenden wir verständli- 
cher Weise den ersten Fall. 


PRINT=$AAA4 Print 

Dieses Unterprogramm wird zum Ausgeben des Textes genutzt. Nach 
dem Aufruf Fird ein Text, welcher sich in Anführungszeichen befin- 
den muß, eingelesen und auf dem Bildschirm ausgegeben. 


Damit haben wir alle Routinen kennen gelernt und können somit un- 
sere Aufgabe lösen. Das folgende Assembler-Listing demonstriert dies: 


2 


157 EOOG -üPrT FPI.ch 

16: Cooo #= 49152 :STARFADRESSE AB #6000 
R ASSEMBLERKURS TEIL 18 PRINT Ar 
sADRESBEN DER ROM RUWTINEN 

70 Toro \ ERCOM = AEFD «AUF KOMMA FRUEFEN 

BO Co9o GETBYT = $B7IE sBYTE HOLEN 

70 [000 EURSER = EFF sEURSOR SETZEN 

75 CO00 PRENT = ana TEXT AUSGEBEN 


0 
110: Gaco 20 Fh Ag START JSR CKCOM sAUF KOMMA PRUEFEN 


120: I063 29 SE B7 JSR GETBYT 35PALTENWERT HOLEN 

130 TI6b BA TXA »:SPALTENKERT NACH AKKU BRINGEN 
140 co? AB , FHA »SPALTENWERT AUF STAPEL LEBEN 

150: LoGB 20 FD AE JSR 9 ckecoH sAUF KOMMA PRUEFEN ö 

140: CooB 274 9E 57 M5R BETBYT SZEILENWERT HOLEN 

170: TOOE &8 PLA 35SPALTENWERT VON STAFEL HOLEN 


1A): TOorF AS TAY 
170: Eoia 19 


;SPALTENWERT NACH Y BRINGEN 
ELT »CARRY-FLAG LDESCHEN UM 
CURSDOR-REUTINE EINZUSTELLEN 
210: call 20 Fo FF JSR CURSOR 3EURSOR NEU SETZEN 
220: ©0914 Zu FD RE 
zZ3Or C017 29 A4 AA 
240: colA &0 


JSR 2 CKEOM 
JER PRINF 


»PRUEFT AUF KOHMA 
TEXT AUSGEBEN 


Funktionsweise und Syntax 


Die Syntax unserer kleinen Basic-Erweiterung ist relativ einfach. Sie 
entspricht weirgehend dem PRINT AT. Befehl aus anderen Bäsic- 
Versionen. Der Aufruf erfolgt direkt oder innerhalb eines Programmes 
in folgender Art und Weise: 


$YS 49152,X,Y,"TEXT” 


Die Variable X gibt die zu setzende Spalte (0-39), und die Variable Y die 
zu setzende Zeile (0-24) an. Die nachfolgende Variable gibt an, welcher 
STRING ausgegeben werden soll. Die Funktion der Routine erklärt 
sich durch das dokumentierte Assemblerlisting von selbst. 


Im nächsten Teil unseres Kurses werden wir eine weitere Aufstellung 
über die noch nicht erwähnten Speicherstellen und Systemroutinen 
bringen. Als Abschluß unseres Assemblerkurses ist es unser Ziel, eine 
vollständige Basic-Erweiterung zu erarbeiten und als Assembler-Listing 
abzudrucken. .“ 

Frank Brall 


44 


programme 





i0 " Disketten-Hilfe by N.Martin 86 
20 

36 #-—- — mm 

= MENUE * 

O0 TO —emn———t 

560 

70 MODE 22 LOCATE 10,1:PRINT "#0 


Disketten-Hiilfe 
by N.Martin"sLOCATE 1,2: PRINT STRIN 
BF (89,15% 
80 GOSUB 1960 
99 LOCATE 23,64PRINT "Catalog - ":LOC 
ATE 23, PRINT " Rensme - "sLOCATE 73 
;‚1I2:PRINT" Erase - ":LOCATE 22,15 PR 
INT"Loeschen — ":LOCATE 20,189: PRINT" 
Saven - ":LOCATE 40,18: PRINT" — E 
nde aller Funktionen":LOCATE 49,15:PR 
INT" - Tape/Disc 
100 LOCATE 40,12: FRINT " - Laufwerk & 
Zb"S3LOCATE 40,9:PRINT " — CP/M"SLOCAT 
E 40,44PRINT " - Komma 'p’ Programme 
laden. . 
110 a$=INKEY$ıIIF a$=""THEN 110 
120 IF a$="0”" THEN 1100 
130 asASC (a9) -48:0N a GOTO 150 ,290,40 
0,530,640,770,850,970,950 
140 GOTO 110 
150 ” #r CATALOG **%* 
360 CLSSLOCATE 1,2:PRINT STRINGS(RO,1 
59) 3L0CATE 10,1:1PRINT "# 
CATALCH3 
rtin" _ 
170 PRINTIıPRINT=PRINT " Bitte eine Dis 
kette einlegen und eine Taste druecke 
n.Mit den Cursor-Tasten trauf/ru 


by N.Ma 


- Scehneider- 


‚230 


hter)} koennen Sie den User um eins na 


ch oben,„bzw um eins nach unten ve 

rschieben. " 

189 CALL &BBiB 

170 ECL5 

200 IF user=-1 THEN user=15 

210 IF user=14 THEN user=8 

220 IWUSER,user: IF g9$="Tape" THEN 70 E 

LSE CAT “ 

PRINT=PRINT "Bitte "ICHRS (24075 " 

oder "SCHR$C241)5”" oder TENTERT" 

240 aF=INKEY$ı IF af=""THEN 2409 

250 IF a#=CHR#FI1246) THEN usersuser+lı 

GOTO 170 

260 IF as=EHRF$ (241) 

GS0TG 170 

279 IF a$=CHR$113) THEN 30 

280 5010 240 

290 ' u: Rename 

390 CiLSSLGCRTE 3,2:PRENT STRINGSS(BO,1 

54): LÖCATE 10,1z2PRINT "#2 
Rename 


THEN user=user-i1: 


by N.HMA 
RTIN” 

310 PRINTZPRINT:PRINT " Legen Sie die 
Diskette ein,auf der der File,den Sie 
umnennen wollen,gepeichert ist.Drue 
cken Sie dann einen Taste ! ACHTUNG : 
Filename,Punkt und die Abkuerzung hi 

nter dem Purkt angeben. "=:CALL &BRIB 
5206 PRINT:FRINT: INPUT "Auf welchem Us 

er ist das File "suser 

330 IUSER,user 

3240 PRINT:PRINT: INPUT "Wie ist der ur 

spruengliche Name ";namei$ 

350 PRINT: INPUT"Wie ist der Name,dem 
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Das vorliegende Programm bietet 
von einem umfangreichen Menü 
aus alle wichtigen Diskettenope- 
rationen an. 


Das lästige Neuformulieren der 
Diskertnbefehle von Basic‘ aus 
kann daher entfallen. 


Folgende Befehle sind in der Dis- 
kettenhilfe enthalten: 


Catalog 

Rename 

Erase 

Löschen 

Saven 

Ende aller Funktionen 
Laufwerk a/b 

CP/M 

Komma ’p’ Programme laden 


Alle Menüpunkte werden vom 
Programm aus erklärt. Der große 
Vorteil: auch wenn Sie dieses Pro- 
gramm selten benutzen, müssen 
$ie nicht in der Anleitung blät- 
tern. Ansonsten haben $ie jeder- 
zeit eine hervorragende Disker- 
tenhilfe zur Hand. 


Sie dem File geben wollen "jname?#$ 
340 PRINT:PRINT:PRINT "Bitte Taste dr 

wecken „„„"3CAlL &6B18 

370 ELS 

380 REN, äname?# ,‚#nameils 

370 IF 4$="Tape” THEN 70 ELSE CAT:PRI 
NTEPRINTSPRINT "Alles richtig 7 Bitte 
Taste druecken. ":CAL %EBiB:60TD 30 
400 ’ ##* Erase ### 

410 ELSILDCATE 10,1:2PRINT "#3 

Erase 

by N.Martin":LOCATE 1,2:PRINT STRINGS 
(80,154) 

420 PRINT:PRINT:PRINT " Bitte geben Si 
e eine Diskette ein,auf der der File, 

den Sie loeschen wollen, gespeich 

ert ist.Druecken Sie dann eine Taste. 
IÜCRLL &BB1B 

430 FRINTTPFRINT: INPUT "Wie ist der Fi 
lename. {bitte auch '.’ und die Abk. d 
ahinter angeben} ?";names 

340 FRINTF: ENPUT "Auf welchen User ist 
der File "zusert IUSER,user 

459 PRINT=PRINT "Wollen Sie wirklich 
loeschen ? LJ/NI" 


460 as=INKEYs: IF a$=""THEN 450 

470 IF UPPER${aSI="J" THEN 500 

480 IF UPPER$tasS)="N" THEN 70 

470 GOTO 450 

S5p0 TERA, ename* 

510 CLS: IF g#="Tape" THEN 70 ELSE CAT 


»PRINT:FRINT "Bitte eine Taste drueck 
EN 2. I . 

520 CALL &BB19:60T0 7G 

550 " ### Loeschen **#+ 


11/86 


-—— 


| WC | Gyr i |} 


540 ELSELOGATE 10,1:PRINT "#4 
Loeschen 

by N-Martin"sLOCATE 1,2:PRINT STRINGE 

(80,154) . 

550 PRINT:PRINT=FRINT * Bitte geben Si 


mit RUN’ starten,koennen Sie es nic 
ht mehr unterbrechen falso,fall 
s noetig,absaven!}."ıECALL &5B18 





programme 


819 PRINT:PRINT:INPUT "Auf welchen Us | 1110 MODE J:ıEND 


er ist der File “user: TUSER,user 
820 PRINT: INPUT "Wie ist der Nane der 
File "ı:namet 

830 FOKE &ACOL,&GIıPOKE &ACOZ2,&901POK 


Sı PRINT "Bitte waehlen Sie zwischen 0 
und 9 s"zRETURN 
1100 * 


CHECK ViıPRUEFBLMHEN: 


e die Diskette ein,die Sie lneschen #» |E &£ACOS, KO ER en 
allen und gruecken Sie dann wine Tas |940 LOAD namef %30- As 13211 
te, "sCALL SEBIE 8590 ° neu CP/M een =s0- &0: 8129 
560 PRINTIPRINTEPRINT "Wollen Sie wir |840 CLSTPRINTIPRINTSPRINT "Bitte gebe 70- 20% 2.340 
klich alles lneschen LJ/N} n Sie eine CP/M Diskette ein und drus 0- 1008 29871 
570 as=INKEYSı IF a$=""THEN 570 cken Sis Jann eine Taste. "ıCALL KBBI1EO 110- 1208 29245 
500 IF UPPER$(a#)="]" THEN &10 sIEPM I 
570 IF UPPER$(aF)="N" THEN 70 870 ' x=# Laufwerk a/b a8 150- 140: 23424 
600 G0TO 540 BO CLS:ıLOCATE 10,12PRINT "8 150- 1608 14238 
610 a$="r.8"2 !ERA,Gar i Laufwerk a/b 170- 180: 32068 
620 CLS: IF g$="Tape" THEN 70 ELSE CAT by N.Martin"sLOCATE 1,23PRINT STRING 170- 200r 32034 
«PRINT:PRINT "Bitte eine Taste Jrusck |$(80,154) 210” 220: B4404 
en...” 870 PRINT=SPRINT:PRINT "Welches Laufwe 230- 2408 38282 
#30 CALL %BB18:G0T0 76 rk wollen Sie benutzen La/b] " 250- 2601 11188 
BIO" ae Baven au 900 as=INKEYS:IF as=""THEN 900 270- 2801 12409 
650 ELSELOCATE 10,1:4PRINT "#5 910 IF LOWERFIa$)="a" THEN IArGOTO 94 270- 300: 71882 
Saven o 310- 3201 7442 
by N.Martin"sLOCATE 1,23PRINT STRINGF |920 IF LOWER#ta$)="b" THEN IBISOTD 94 330- 3401 44023 
(80,154) o 350- 36501 72178 
560 PRINTIPRINTIPRINT ” Geben Sie eine | 950 60TG 700 370- 380: 26071 
Diskette ein,auf der dieses Frogramm | 940 PRINT:PRINT:PRINT "Es ist jetzt a 370- 4001 60575 
gesaved werden soll und druecken |uf Laufserk "ILOWERFCAFI,L" gestellt.B A10- 4201 72580 
Sie dann eine Taste. "ıEALL &BB18 itte eine Taste druecken. ":CALL 3BB18 430- 4403 32526 
. 670 PRINT=PRINT "soll Komma - 'p’ abg | :G0T0 70 450- 460: 26571 
esaved werden LJ/NI* 950 ' u Tape/Disc #08 A70= AB0ı 30770 
&80 a$=INKEYSı IF x$e"HTHEN 480 1960 CESILOCATE 10,1:PRINT "#9 470- 5003 Fr 
690 IF HPPER$(K#)="J" THEN x=1360T0 7 Tape/Disc sin Sa: 22080 
20 j by N.Martin“tLOCATE 1,2:PRINT STRING$ ne 
700 IF UPPER#{x#I="N" THEN x=0:60T0 7 | (8041543 S50- 403 34038 
20 370 PRINT=:PRINTIPRINT "Bitte geben Si 570- 5508 33704 
710 60TD 6890 = fuer Tape - T und fuer Disc - D e 570- 86003 14300 
720 PRINT: INPUT "Auf weichem User sol |in." 610- #201 36070 
1 gesaved werden "user: USER „user 780 af=iINKEYS:IF as=""THEN 980 630- 440: 11395 
730 PRINT=PRINT= INPUT "Mit welchem Na | 970 IF UPPER$(a$)="T" THEN ITAPEIBOTO 630-7 660: BE152 
men soll gesaved werden "ınamet 1020 670- 680: 37732 
740 IF x=0 THEN 760 1000 IF UPPER#(a$)="D* THEN IDISCEBOT 670- 7001 67817 
750 SAVE name&,p:CLS:CAT:PRINT:PRINT 0 1020 710- 7204 54853 
"Bitte eine Taste druecken „. . "sCALL 1010 GOTD 980 730- 7401 67625 
22918: G0T0 70 1020 IF UPPER$(a$)="T" THEN g$="Tape" 750- 7&0: 85770 
7&0 SAVE namesıCLSrIF g$="Tfape" THEN ELSE gF="Dise” 770- 780: 65899 
70 ELSE CAT:PRINTIPRINT "Bitte «inen |1030 PRINTZPRINT=SPRINT "Es ist jetzt 770- 8002107781 
Taste druecken „.."iCALL &BB18:60T0 7 |auf *rg#j" gestelit.Bitte einen Taste 810- 8201 83237 
° druecken."sCALL &BBIO Az0- 840: 32755 
7790 7 #*#= Kotima 'p" Prg- laden ### 10409 GUTD 70 B850- 960: 34403 
780 CLS:LOCATE 19,1:PRINT "#6 10850 870- 8801 32778 
Komma "p’" Prg. laden 1060 REM #### MENUE z.r# 870- 97008 65831 
by N.Martin"sLOCATE 1,24PRINT STRING | 1070 * F10- 920: 53857 
# (80,154) 1080 FOR i=0 TO 12 STEP SsLOCATE 33,i 750” 940: 16024 
770 PRINT:PRINT:PRINT " Geben Sie die | +S:PRINT CHRS{1SO)CHRSLISSICHRE (156) 1 7507 960 17156 
Diskette ein,auf der das Komma-'p’ sb |LOCATE 33,144: PRINT CHRFLIASICHRE (49# 770- 9901 87616 
gesavete File steht und druecken | (17/3) ICHR$(149) 2LOCATE 33,447 PRINT C 770- 1000. 70862 
Sie dann eine Taste.Diezes Programm | HRFCIATICHRE LLSSICHRS (1SFP INEXTIFOR i 1010- 1020: 1005B 
wird automatisch geloescht! Da =0 TO 12 STEP 3:L0CATE 37 ,1+5: PRINT C t0350- 10403 41723 
s andere Frogramm wird geladen und d | HASTISOICHRF ISA I CHRE (156) 1050- 10501 7722 
anach erscheint "Ready’ mit dem 1090 LGCATE 37,1*61PRINT CHRFCLASFICHR 1070- 10807 29456 
800 PRINT " Eursor.Sie koennen jet | $(49+ 041/545} CHR$ (149) 2 LOCATE 37,1+73 1090- 11001 97746 
zt das eigentlich geschuetzte Listing | PRINT CHRECLAFICHRFLULSSHCHRELLSN ıNEX 1110- . 982 
durchsehen. Falls Sie das Programm | TıLOCATE 38,i+3:PRINT "O"ıLOCATE 17,2 Lumen nn 
BESAMTEHECKEUMME: 6125 


Bei Fragen zu » den Te Fer nn een für telo- 
fonische Anfragen zur Verfügung. Bitte wählen Sie nur diese Nummer und rufen 
Sie nur zu den angegebenen Zeiten an: Montag-Freitag, 14-16 Uhr! 
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Hier ist endlich mal ein Pro- 
gramm für die vielen Funkama- 
teure unter den Computerfans. 


Dieses Programm erlaubt die Edi- 
tion von Morsecodes. Entweder 
werden Morsecodes in Normal- 
schrift übersetzt, oder die Eingabe 
erfolet in Normalschrift, die daun 
vom Programm codiert wird. 


Nach dem Starten des Pro- 
gramms erscheint der Bildschirm 
in zwei Hälften gesplittet. In der 
oberen erscheint das Hauptmenü 
und in der unteren ist der Morse- 
code zu sehen. Das Hauptmenü 
stellt Ihnen drei Funktionen zur 
Verfügung: 


1. Decodieren 

Nach der Anwahl des Menü- 
punktes ”1” wird die obere Hälfte 
des Bildschirms gelöscht. Der 





u ‚Morse-Decoder En. 


Computer erwartet nun, daß Die 
den Morsecode eingeben. Dies ge- 
schieht mit den Tasten ”-” (rechts 
oben neben Null) und ”1” (links 
neben CLR), wobei der Strich für 
ein längeres Zeichen und der 
Hochpfeil {er erscheint am Bild- 
schirm als Punkt) für ein kurzes 
Zeichen steht. Zwischen jedem 
Zeichen (.B.:”.-.” ) muß ein Frei- 
zeichen eingetippt werden, zwi- 
schen jedem Wort muß man 2 
Freizeicen einfügen. Zum Ab- 
schluß betätigt man die EN'TER- 
Taste. Der Computer beginnt 
nun sofort mit der Decodierung. 
Buchstabe für Buchstabe er- 
scheint nun der Klartext suf dem 
Bildschirm. Nach der Decodie- 
rung ertönt der Code noch aus 
dem Lautprecher. Mit ENTER 
gelangt man in das Hauptmenü 
zurück: 





2. Codieren 

Wurde Menüpunkt ”2” ange- 
wählt, wartet der Computer nun 
auf die Texteingabe. Geben Sie 
zB. Ihren Namen ein und 
drücken ENTER. Der Computer 
beginnt sofort mit der Codierung, 
Nacheinander erscheinen die 
Punkte und Striche des Morseco- 
des. Parallel ertönt dazu der Mor- 
secode aus dem Lautsprecher. 
Nun werden Sie gefragt, ob noch 
einmal ”"gesendet” werden soll. 
Wenn Sie ”]” eingeben, können 
Sie sich den Code noch einmal an- 
hören oder auch ein Furikgerät an 
den Lautsprecher halten. 


Menüpunkt 3 beendet das Pro- 

gramm. 

Wynn Sie zweimal ESC drücken, 

ist das Programm wieder präsent. 
Kkx 





10 ' Pit-Soft 
20 ' presentsi 
30 
3 ' PForsedecoder 
50 
60 ' Copyright 1784 by 
70 * 
80 ° Feter H, Brubmair 
so" 


100 MODE 1:INK 0,0:BORDER 4 

110 INK 1,24:INK 2,14: INK 3,6 

120 SYMRÜOL AFTER 93: S5YMROL 74,0,0,0,2 
#,24:5YMBOL 75,0,112,64,102, 116: 5YMBD 
L 76,0,0,0,219,154 

130 PEN 3:L0CATE 1,15: PRINT STRING$ (4 
0,CHR# 12273) 

135 KEY DEF 31,1,94 

140 DIM nc#t42} 

159 mes = Ar-"smc$ 123 =" Br amcHl 
I="Gr met ld) Drache Er" 
160 meF I) =" FH ncH Te" emch 
Beh mc (Het Track II HI 
176 ac$t11I="K- "mes DIE ren 
11 9="M--"emc$ (14) "N" mc$ (15) 20 
md 

190 mes ti)" Pr m et 
FH RI ct mc 20) 
de 

1970 act 2 Ve" YHr— Ve me 22) Byrne 
#12) ="WI "me (24er ir each 25 
hr in mc$ (ze 

200 me$ (ZI) "17 Incl Z) az 
inc# (Zee CT) Et 
FINDEN ZINN ne TZ) = tech 
Hetze (ZA Br emch (35, 
ne 

210 me#t3sI=#'"0-----" mc ${3N er mn an 
"enc$ (IB) =" ur ZI N gan 
Emek (20) A (A et 
ne$t42yetaan nn 

229 WINDOW 2,40, 14,25 

230 ZONE 7 

240 FOR a=1 TO 42 

250 PEN 1:PRINT LEFTStmc$ta) „1352 PEN 
Z:PRINT MID$ (mc# (a) ,2,LEN(mc$tar)), 
240 NEXT - 
270 FEN 3:LOCATE 22,8: PRINT","3 

280 WINDOW £,40,1,14 

290 ° zertsense Menue Einsprungalress 


Bene 
300 CLS 
10 LOGATE 10,24PEN SıPRINTBORSE 


DECODER" 

320 PEN 23LOCATE 10,35+3PRINT STRINGFIZ 
3,CHRFT1S1I) 

330 PEN 1:PRINT" 


Derodieren"sPRINT" 
Codieren":PRINT" 
";=PEN 3:PRINT" Programm beenden" 
340 i$=LDWERSTINKEYS)SIF i#="1’THEN 3 
60 ELSE IF i#="2"THEN 580 
350 GDOTO 330 
360 7 szuueenieee Decodieren KAnnKRRRH 
* 
3709 CLSSLOECATE 11,2s3PEN S:PRINT"DEC 
UDIERE N":ILGCATE I1,Sı1PEN ZıPRI 
NT STRINGS$C1FLCHRSLESLII 
390 PRINT" 


"ıPEN 2: INPUT"Code"jtt 

370 PEN itPRINT 

400 GÜSUB 530 

410 t4etsrr Er" 

420 FOR a=1 TO LENIS) 

A350 p$=MIDEtt$,a, 132 IF p$c>® "THEN pp 
#=ppF+p$ ELSE IF ps=" "THEN 470 

440 IF MIDSttS,a,23=" "THEN PRINT" " 


3; 

450 NEXT a 

360 CALL &BBl1B:pp$e""rpsa"t,G0T0 290 

470 

480 FÜR b=1 TO 42 

470 IF pp$=MID$ tmc$ tb) „2,LENtmc$ (bh) } 
THEN PRINT LEFT$(mc$ tb) „134 100790 510 
500 NEXT bh 

510 ppt="" 

520 G60T0O 440 

570 FÜR a=ı TO LENIEF 


540 IF MID$I(t$,3,1)="""THEN SOUND 2,5 

0,5,7 ELSE IF MID$ (t#,a,1)="-" THEN 5 

BUND 2,50,15,7 ELSE IF MIDF(LS,a,1)=" 
”" THEN SOUND 2,0,59,0 i 

739 SDUND 2,0,5,0 

560 NEXT a 

570 RETURN 

SBO "nee Codieren KSRAseernk 

570 CLS:LOCATE 13,22PEN S:PRINT"C OD 
TER E N":LOCATE 13,35:PES 22PRINT 8 

TRING$ (15 ,CHR$ 11319) 


600 PRINT: INPUT" Text"jt$:t$=UÜPPERF (LS 
N 

610 PEN 1 

620 FOR a=1 TO LEN(tS) 

630 h$=MID$ (L$,a,1) 

640 IF he" "THEN p$e" ":G0OT0 680 


650 FÜR b=1 TO 42:1F LEFT$S{me$tb} , 1)» 
h$ THEN p$=MID# (mc$ tb} „2,LEN(me#ib})) 
sG0TH 480 

660 p$=CHR$ (95) +CHR$ (96) 

&70 NEXT b 

680 pp$epps+ps+" "3IF LEN{pp$) >=251 T 
HEN G60T4 579 ELSE NEXT a 

6706 FRINT pp$ 

700 FOR a=1 TO LEN{pp#} 

710 IF MID${ippF,„a,l}="*"THEN SOUND 2, 
50,5,7 ELSE IF MED$(pps,a,i}="-" THEN 
SOUND 2,50,15,7 ELSE IF MID#tpp$,a,1 
I=" " THEN SOUND 7,0,5,0 

720 SOUND 2,0,5,0 

730 NEXT a 

740 PEN 3:INPUT"Nochmal Senden”zis: IF 
LOWER${LEFTSi$#,1)3)="J"THEN 700 

750 ppt=" Lil 

760 GOTO 270 


CHECK VLIPRUEFSUMMEN: 240- 250r 48818 540- 5501 2032 
260- 2701 7045 560- 570: 1764 “ 
ZEILENNR.ı SUMMEN 280- 290. 12396 580- 5901 65154 
10- 20: 13933 300- 310: 28556 600- Hilı 32367 
#0= #40: 12685 320- 3308 37873 520- 6301 26958 
S50- #60: 16138 340- 350: 11376 640- 650: 57668 
70- 801 18852 360- 370: 82537 650- 870: IA 
70- 1001 31667 390- 390: 17964 680- 690: 40691 
110- 120: 39514 400- #10: 890% 709- 710: 43802 
130- 135: 29421 420- 4330: 60408 720- 730: 2938 
1940- 150: 13765 A40- 4501 27895 740- 750: 49075 
160- 170: 44075 480- 470, 25658 = 7-8 3 
180- 1901 64147 4B0- 490: 42227 un mm 
200- 210: 33014 500- 516 S16& BESAMTCHECKSUMME: 5668 
220- 2301 2753 520- 530: 15709 
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Jagen Sie mit Ihrem Jeep durch 
die Gegend! 


No Crash, please! Sie geben sich 


auf eine Höllenfahrt, die Ihr gan- 
zes Fahrkönnen verlangt. Exliche 
Hindernissen müssen übersprun- 
gen werden. Dies geschieht, in- 
dem Sie den Joystick nach oben 
bewegen. Neben Steinbrocken 
tauchen auch Karaterseen auf, die 
ebenfalls übersprungen werden 
müssen. Haben Sie dies alles im 
Griff, können Sie auch noch den 
über den Wolken fliegenden Vo- 
gel abschießen (Feuerknopf). 


Besonders interessant ist die Tat- 
sache, daß dieses Spiel auch zu 
zweit gespielt wrden kann. Beide 
Spieler wechseln sich dann ab. 


Ein 'Tip: 


Wenn der See und ein Stein un- 
günstig beieinander liegen, kann 
der Toystick nach links bewegt 
werden. Der Stein wird dann 


schneller. 


Die BREAK und die CTRI/ 
SHIFT/ESC Funktionen sind aus 
spieltechnischen Gründen ausge- 


schalter. 


100 7. SHBHBREREITHHHE 250 
110° # * 250 
120 * * HORROR DRIVER * , . 
13507 # * 270 
130° % ic) BY MKP * 280 
150 ' * + 290 
180° RHBHHHHBBHRRHREIHHHE 300 
170 * 310 
190 7 nennen 220 
195 * SYMBOLE 18 
199 ° euer 330 
195" 340 
200 SYMBOL AFTER 2561 MEMORY KASFFISYM| 116 
BOL AFTER 32 . 350 
2160 SYMBOL 48,0,54,79,103,97,115,99,5| 340 
4:5YMBOL 42,0,54,99,103,97,115,99,54 

220 SYMBOL 49,0,60,108,12,12,12,12,59 | 370 
239 SYMBOL 50,0,54,99,3,119,954,99,119 1 390 
246 SYMBOL 51,0,534,997,3,22,3,99,54 3?0 
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SYMBOL 
SYMBOL 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


SYMBOL 
SYMBOL 


SYMBOL, 
SYMBOL 


SYMBOL 
SYMBOL. 


‚SYMBOL 


52,0,99,99,99,55,3,3,3 
53,0,117,99,96,116,3,797,54 


54,0,58,99,96,118,99,99,54 
55,0,119,99,3,6,12,12,12 
56,0,54,99,99,54,99,99,54 
57,0,584,99,99,54,3,99,54 
65,0,54,99,99,119,99,99,99 
66,0,118,99,99,118,99,97,1 


67,0,54,99,96,96,76,97,54 
68,0,116,102,99,99,99, 102, 


69,0,54,97,96, 116,96 ,97,54 
70,0,54,99,76,116,96,96,96 


71,0,54,99,96,102,99,99,54 


72,0,997,99,97,119,99,99,99 
75,9,24,24,24,24,24,24,24 


CSompube mib 


439 


-1 #70 
489 


490 


400 SYMBOL 
97 

410 SYMBOL 
420 SYMBOL 
E. 

459 SYMBOL 
07,103 


4309 SYMBOL 
SYMBOL 
& 

460 SYMBEN. 
7 ” 
SYMROL 
SYMBOL. 


SYMBOL 
500 SYMBOL 
10 SYMBOL 
= 


s20 SYMBEH. 





EIS EE 





75,0,99,99,102,114,102,99, 


76,0,76,96,96,96,96,99 ,54 
77 ,0,54,107,107,107,99,99, 


78,0,115,107,107,107,107,1 


79,0,54,99,99,99,99,99,54 
50,0,118,99,99, 118, 76,96,7 


82,0,118,99,97,118,97,97,97 


83,0,54,99,96,54,3,97,54 
84,0,126,90,24,24,28,24,24 


85,0,99,99,77,99,99,99,54 
85,0,99,29,99,99,99,54,20 
97,0,99,99,97,107,107,107, 


B7,0,77,99,99,54,20,20,20 
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530 SYMBINL 

540 SYMBOL 

550 SYMBOL, 

60,24 

SA0 SYMBOL 

570 SYMBOL 
„24 

590 SYMAOL 102,0.0,0,0,1,7,15,63:5YMB 

DL 103,0,0,0,0,127,207 , 255, 2551 SYMBOL 
104,0,0,0,0,128,192, 240,252 

570 SYMBOL 105,63,31,15,3:SYMBch, 106, 

255,295, 255,255,207 ,5:3YMBOL 107,254, 

232,248,274,172 

S00 SYMBEH 108,132,206 ,255,285,,255:8Y 

MADL 19097,33,1195,255,2585,255 

&19 SYMECR. 110,0,0,0,0,24,60,60,2415Y 

MBOL 111,0,0,255,255,255 

620 BYMBNL 112,6,33,132,33,10,64,2118 

YABüL, 113,16,64,4,15,33,20,65,8 

&30 SYMBOL 114,15,56,40,122,25515YMB0 

L 115,0,3,10,255,124,56,56,16 

640. IF WDH=1 THEN WDH=01RETURN ELSE D 

IM OC1&) 5010 2600 

[2 

650 ’ Manieren 

655 ° VARIABLEN _ 

5’ ee 

670 IF RU=0 THEN DIM 81200) ,881200) ,T 

E#140) „NAFt22) ıG0SUB 3700 

680 SCOtL}=01L1VI1=3RMIL (13=49. 9:1 IF MI 

T=2 THEN SCO(2)=01L.1V2=3ıMIlL12)=2497.9 


74,0,119,99,3,5,3,99,54 
97,1,3,1,61,67,25,60,24 
78,128,80,144,252,174,152, 
















ab"z 


500 
300,1,3,1,61,91,61,24 
101,128,80,144,252,218,188 


DSUB 


de" 


ab"g 


995 

1000 
1005 
1019 
1015 


890 IF spe=0 THEN LOGATE 10,1B: PRINT" 
870 IF TEST (165,YPL-8}=2 THEN GOSUB 1 


875 IF TEST (165,YPL-25)=2 THEN SCO(PL 
AND=SCO(PLAYI+2S 

709 IF JGYiG)=1 AND SPE=O0 THEN BEW=15 
YPL=128 

710 IF JOYtO)=3 AND SPE=0 AND B=0 THE 
N BRE=SARE+1:IF BRE=3 THEN BRE=0:B=0:6 


920 IF BEW=1 AND SPE=0 THEN LOCATE 10 
„28: PRINT" 
5:50UND 1,80,10,1,2,2:BEW=0:5PE=1 

730 IF SPE=0 THEN LGCATE 10,181 PRINT" 


740 IF ST0=5 THEN STO=0: YPLe112ı5PE=0 

ESPR=1 

950 IF SPR=1 THEN LOCATE 10,174 PRINT" 
"z:LOCATE 10,189: PRINT"ab"3:SPR=O 

940 IF SPE=1 THEN STÜ=STO+L 

770 GOSUB 2200 

780 IF BRE>2 THEN 950 ELSE GOSUB 1000 

995 IF spe=0 THEN LOCATE 10,18=PRINT" 


990 FOR HA=12 TO 8 STEP-t:SOUND 2,800 
,3,HA,0,0,15:NEXT HA:SUTO 850 





1320 LOCATE 14, 1rPRINT"HIGH-SCORES" 
1525 SUC=0:G0SUB 3300 
1550 FOR A=1 TD 10:B=A 
1540 IF B>1 AND S{BI=BiB-13 THEN B=B- 
1:50T0 1340 
1350 LOCATE 7,A+H14:PRINT BEGSCCB, "#4" 
zu - 
1360 LOCATE 11 ,A+14: PRINT DECHLISIA), 
et 
1370 LOCATE 18,A+14:PRINT 5$(A9 7" 

# 
















1090 ELSE GOSUB 1100 
1380 NEXT 

1370 IF S<101 AND S>10 THEN LUOCATE 13 
‚l1E2PRINT"YOUR LEVEL: "35 

13400 IF 5>100- THEM LOCATE 3,11: PRINT" 
YOU AREN’T BETTER THEN LEVEL 100 !" 
1410 IF 5<10 THEN LOCATE 5,11:PRINT"E 
ONGRATULATILION S":SUc=el:8 
USUB 3350: 5$ (9) =LEFTS(AF 223: LÜCATE 1 

8,5+14:PRINT S$159) 

1420 LOEATE 12,131 PRINT* 

HM 


"3:LGCATE 16,17:PRINT"ab" 


TAKE A KEY 


1430 POKE B4EB,O 

1440 IF ENKEYS<>"" THEN 1440 ELSE CAL 

L. &BBO6& 

1450 IF MIL{PLAYI<O THEN RETURN 

1360 IF MIf=2 AND PLAY=1 AND LIV2>0 T | 
HEN PLAY=2:1B60T0 700 


| 
"EHRE 1470 IF PLAY=2 AND LIV1>G THEN PLAYoi | 
" SCROLLINGS s5OT0 700 
AH 1480 IF MIT=i AND PLAY=1 THEN 1650 


570 YPU=184 YPL=112:PLAY=1:BEX=S9:15PEE | 1020 ILSCROLL,8,9,10,11,12,13,14,15,1 | 1490 GOTD 1850 

D INK 10,10: ARE=1 & 1495 

673 ° 1030 ILSEROLL,19 1500 ' Kunmeuaueneer 

700° re 1040 IF BER=0 THEN IF INT{RND=10)<7 T | 1805 * AUTO VERLOREN 

705 * BILDSCHIRMAUFBAU HEN BER=1 1510 7 ee 

FO HERE 1059 MIL(PLAYI=MILIPLAYI-0.11 IF MIL(P | 1515 ° 

zıs * LAYI<O THEN 2350 1520 BER=0: BEY=39: VOG=Or VO=04 SUS=0 
720 CLS 1040 IF SEOKPLAYY>HIGH THEN HIGH=SCOI | 1530 IF MIT=2 AND PLAY=1 THEN LIVI=LE 
730 PEN i PLAY) V1-1=IF LIV1>0 AND LIV2>0 THEN GOSLAR 
740 WINDOW #1,1,40, 1,8: PAPER #1,05ELS | 1070 LOCATE 15,22:PRINT USING"##. #8", | 2100: PLAY»2:GOTO 760 





a MILEIISLOCATE 36,22:PRINT USING’##4.## | 1535 IF MIT=1 AND PLAY=1 THEN LIVI=LI 
750 WINDOW #2,1,40,20,25:PAPER #2,01C | ";MIL(2) Wi1-12IF LIV1>0 THEN GOSUB 2100:G010 7 
is #2 1080 IF BER=1 THEN GOTO 1100 &0 

FAO CLSSCLS#1ICLEF2H INK 1,0: INK 2,051 | 1090 RETURN 1540 IF PLAY=1 AND LIVi<i THEN 1590 
NK 3,0 1095 ° 

770 PRINT#1:PRINT#1 ,"PLAYERI H|2100 7 ernennen 1550 IF MIT=2 AND PLAY=1 AND LIVXI T 
IGH PLAYER2" = PRENT#2=PRINT#2:P [110% " STEIN KOMMT HEN 780 

RINT#2, "MILES TO 60 MILES TO [1110 " wuaaueeneer 1560 IF PLAY=2 THEN LIV2=LIV2-1s IF LI 


60": PRINT#2: PRINT#2,*” 
MKP „ PUBLISHED BY USW" 
780 LOCATE 9,2:PRINT USING" ###8#"JSC0 
i):LOCATE 21,2: PRINT USTNG"#RHHH#";HI 
GRILOCATE 36,2=:PRINT UBSING"#*#44"375C0 
(ZI 3LDCATE 15,22:PRINT USING"38.8#"3M 
IL(H’ELDCATE 36,22: PRINT USING"3H,88" 
sMILi2)} 

790 FOR ZUS=1 TO LIV1#3 STEP $3rTLGCATE 


{ic} 19086 BY [1115 


1120 





1130 
1140 


1 
1150 


LECATE BER, 18: PRINT"n"JıPEN 1 


ELSE IF 50012) 3999397 THEN LIV2=L1V2+ 


"3: 8C0KPLAYI=SCOIPLAY)I+1005 BER=0:BEX 


v2>0 AND LIVIi>O THEN GGSUB 2100:PLAY= 
1:50T70 760 

1570 IF PLAY=2 AND LIV2<1 THEN 1620 
1580 IF PLAY=2 AND LIVI<1 THEN 760 
1590 PEN 11LBCATE 1,4: PRINT"SAME OVER 
n 
1600 
1810 
1420 


LOCATE BEX+1,1S1 PRINT" ."3:PEN 3: 


BEX=BEX-1 
IF SCOt1}>79799 THEN LIVi=LIVi#t 


SOSUB 2100 
GOTO 1200 
PEN 1:LOCATE 32,41 FRINT"GAME DVE 


IF BEX=1 THEN LOCATE 2,18: PRINT" 





Q+ZUS,4:PRINT"ab";:NEXT:FOR ZUS=1 TO |=%9_ R" 

LIVZ#3 STEP SI LOCATE 32+2U5,9: PRINT" | 1180 LOCATE #,2:PRINT USING"RH#R")5C | 16350 GOSUB 2100 
ab"s:NEXT O1) :LDOCATE Z1,2:PRINT USING"RRHRH" SH | 1540 GOTO 1200 
800 LÄCATE 1,5:PRINT STRING#(40,154) 5 | IGSH:LOCATE 56,24 PRINT USING" RRHRR",SC | 1645 * 

:LOCATE 1,20:PRINT STRINGF(20,154)3 02) 1650 7 men 
BIO LOCATE 1,19:PEN S:PRINT"ImImimIml 1170 IF BEX=10 AND SPE=O THEN 1500 1555 ° GAME DVER 
mlmimlailmlmalmlmimimimimimimlmim"; PEN 1550 ' KERnEanE 

LLOCATE 5,8: PRINT"fgh 1180 IF BEX=9 AND SPE=DO THEN 1500 1645 * 


fgh"3LOCATE 5, FrPRINT"Ijk 
fgh 
RINT"i4k" 
820 PLOT 0,240,2:DRAW 110,200: PLOT 50- 
‚150:DRAW 200,285:DRAW 320,160:PLOT 3 
00,180: DRAW 410,275:DRAW 550,150: PLOT 
5350,17: DRAW 440,260 . 
830 LOCATE 10,YPO:PRINT"ab"z:PEN 2:L0 
CATE 2,19: PRINT"oa":PEN 1rINK 1,26: IN 
K 2,212 INK 3,9 
840 IF PLAY=1 THEN LOCATE 13,22: PRINT 
CHRF (245) ELSE LOCATE 34,223 PRINT CH 
R$1243) 


1179 
1195 
1200 
1205 
1210 
12153 
17220 
1230 


iJK"sLICATE 18,10:P 


1240 
1250 
1259 
> 





8435 1270 
8950 7 rum 1780 
855 ° FAHREN 1290 
BaO * auaernr nn 
0865 * 1300 
870 IF INKEY{27)=0 THEN GOSUB 2000 1310 


I>54A} THEN S=ArA=100 


RETURN 1670 ELE:MODE 1:5YMBOL AFTER 254 






1680 LDCATE 12,12:PRINT"ANGTHER GAME 
DE = 5 2 2202 120770 war)" 
* HIGHSCORE 1590 IF INKEY{45>=0 THEN RU=1rWDH=1:V 
OH D9=1:GOSUB 100:50T0 2500 


FOKE &B4E8,255:ı MODE 1 
S=101:FOR A=1 TO 100sIF SEO(PLAY 


1700 IF INKEY(46)=0 THEN 1750 ELSE 1& 
70 

1710 GOTO 1700 

1750 PEN firINK 2,262PAPER Or INK 0,0:M 
ODE 1:2END . 
1795 * 

1800 ° eraser 

1805 * MC-CODE 

1810 * nennen 

1915 

1820 *RESTORE 18709 " 

1930 FOR n=&A4009 TO &ASC3 

1840 READ as:POKE n,VAL ("&K"+ras) 

1850 NEXT:CALL A900 i 


NEXT 
IF 5>100 THEN 1300 
FOR A=97 TB 5 STIER -L:SlA+l)=äta 


IF A<tO THEN 58 (Atl)=Sstä) 
NEXT 
S(SI=SCHtPLAYISEIF 5<11 THEN 5$13 


CLS 
AS=INKEYFLIF Afc>"" THEN 1310 


Compube mib 1186 


1850 Af=""tRETURN 

1870 DATA 01,02,24,21,03,a4,cd,di,bc, 
c9,00,00,00,00,12.,34,€3,47,n4,03,7b,2 
4,03,9c,24,03,bd,34,50,52,47 348,04 ,4c 
,33,43,52,4# ,40400,52,53,43, 52,47 ‚dc, 
£c,43,48,d2,00 

1980 DATA dd,6e,00,d4,23,01,23,24,26, 
00,29,29,29,29,085,01,29,29,17,09 

1890 DATA ed,33,54,11,00,78,17,e8b,21, 
50,00,17,eb,0e,02,0e5,08,,04,05 

1900 DATA 08,02,05,50,85,15,78,12,23, 
13,10, fa 

1710 DATA d1,7a,04,08,57,21,0d,20,2d 
1720 DATA 7c,16,08,47,c1,10,823,d1,0d, 
20,de,e?7 

1730 DATA #5,cd,33,34,11,00,-0,17,06, 
0B,c5,e5,41,23,01,4,00,1a3,2d,50,12,0 
1,60,07,09,0.1,10,e2,f1,354,20,20,c9 
1940 DATA #5,00,33,34,11,47,00,19,06, 
08,65,259,01,26,01,4,,00, 13 ,ed,ba,12,0 
1,50,08,09,c1,10,e2,f1,30,20,80,-4 
1950 DATA 45,cd,60,bb „=1,77,c# 

1995" 
2000 
2005 
2010 
2015 * 

2020 LOBATE 16,4: PAPER Is PEN OrPRINT" 
PAUSED" 

2039 IF INKEY(SZI<7>0 THEN 2050 ELSE 2 
040 
2049 


TO 
* PAUSED 
ME 5.2 22 702 


LOCATE 15,41 PAPER OPEN 14H PRINT" 


2050 RETURN 
2075 * 
2100 ' maus 

2105 " CRASH 

2110 ' want 

zıi5 " 

2139 LOCATE 10,18:PRINT"pg":OUT SECOO 
„E:OlLT &BDOO,1 

2140 FOR HA=15 TO RB STEP-0,5:50UND 4, 
300,20,HA,0,0,15 

2150 NEXT HA 

2160 OUT. &BC00,8: DLUT &BD00,2 

2170 RETURN 

2195 
2200 ° Mesa 

2205 * VOGELFLUG 

2210 * ea 

2215 * 

2220 VO=VO+1r1F VO>40 THEN VO=14L0GAT 
E 40, 7ı1PRINT" "4: VOG=0 

2230 IF VO>1 THEN LOCATE VO-L,7ıPRINT 
n u 

2240 IF BIL=0 THEN LOCATE VO,7ıPRINT" 
r"s:ELSE LOCATE VO,F7ıPRINT"e"; 

2250 IF BiLeO THEN BIL=1 ELSE BIL=6 


2950 IF IDY(O)=1& AND SPE=O AND Std 
THEN LOCATE £1,17: PRINT"q"5=5C=1:80UN 
=200: B0SUS 2320: IF VO=i3 THEN SUS=1 
2270 IF BUS=1 THEN SCOI(PLAYI=SCOIPLAY 
3+56: LOCATE 11,7: PRENT"p" 3: S0UN=50010 
DSUB 2320: VOG=O: Vi=1:SUS=0 

2250 IF SC=1 THEN SSP=5SP+1:1IF S5P>5 
THEN SSP=0:50=0 

2290 IF SPE=0 THEN LOEATE 11,17rPRINT 


2300 IF SCcel THEN LOCATE 11,7ıPRINT* 


2310 RETURN 

23206 FOR HA=15 TO 10 STEP-9.5:50UND 4 
‚S0UN, 2,HA,0,0,10 

2330 NEXT HA:RETURN 

2345 ' 
2I35O 7 at 

25953 ° GESCHAFFT 

230 ee 

2365 " 

2370 CLSıRESTORE 2400 

2380 SCOTPLAYI=SCHIPLAYI+1500: IF SCHt 
PLAY} >HIGH THEN HIGH=SCO (PLAY) 

2390 FOR TEX=1 TO 2Z4:READ TEF(TEXI 
2400 DATA YOU," HEAVY ,E," ",B,R,0 
‚K,E,N," ".n n.. „„" ... "A,R,E,‚A 


11786 . 


2410 NEXTIFÜR FLU=1 TO 24 

2420 IF FL=0 THEN LOCATE #+FLU,104PRI 
NT’r" ELSE LOCATE 9+FLU,10:PRINT"e" 
2430 IF FL=0 THEN FL=e1 ELSE FL=0 

2430 LOCATE B+FLU,t04PRINT TESCFLUIEI 
F FLU=24 THEN LOCATE 35,103 PRINT” "5 
2450 IF ARE=I THEN ARFEe"ST® 

2460 IF ARE=2 THEN ARFeıND" 

2470 IF ARE=3 THEN ARF="RD" 

2480 IF ARE>3 THEN ARFe* TH" 

2490 IF FLU=20 THEN LOCATE 24,101 PRIN 
T AREıLOCATE 26, 10:PRINT ARF 

2500 SOUND 1,120,10,15:30UND 1,0,5,01 
FOR TIM=1 TO 120:NEXT . 
2510 NEXTEINK 3,1,261PEN SıLOCATE 17, 
12: PRINT"LONGRATULATIONG" 

2520 IF JOYiO)=14 THEN 2530 ELSE 2520 
2530 PEN 1SCLSSLOCATE i2,113PRINT"WIL 
L YOU FINISH 7?” 

2530 IF PLAYe1 THEN LIVI=LIVIi+1 ELSE 
LIVZ=LIV2+1 

2550 IF INKEY(44)=0 THEN MIL{PLAY)=49 
„ 93 BEX=39:F0=1G0T0 700 

2560 IF INKEY(45)=0 THEN BOSUB 12001B 
Doro 1650 


2570 GATO 2550 

2397" 

2600 ' We 

2405 ° TITELBILD 

2610 * ehe 

z615 ' 

2520 MODE 1:GDBUB 1800: PAPER O:BORDER 


Os INK O,OLINK L,0:INK 2,0:INK 3,0 
2625 CALL EBBABıKEY DEF &5,0,0,0,03PD 
KE &BDEE ‚&C9 
2530 LOCATE $,&:PRINT EHRSEIANIEn 4 
EHRELIABIH" — NICHRECRASICHRELLASI +" 

"HCHRELILESICHREIISTHCHRFEL LAITH " 
+EHRECIAFHCHRSE 1143) CHRE 1437 +" "+C 
HRELLAZICHRSCLAZI+" — +HCHRECIASICHRE 

GSSICHRFLLASI 
2640 LOCATE 1,74PRINT CHRF(ASIH" "+ 
CHRECLAZI+"  "4CHRSCLASIH"  THCHREILS 
rt MIEHRFLIATIE" EHRSAIADIee 9 
+CHREL143) 4" SHCHRECIAZIH"  N4CHRSLI 
A3yN , TACHRBILAZIH"  NHCHRSALASIF" 
N+EHRE (143) 

2850 LOCATE 1,B:PRINT 
ABI NHCHRELIAZI EN 

"HEHRF CAS) 

2650 LOCATE 1,.B8:ıPRINT CHRFIFNICHRFEAL 
ASICHRFLLANICHRFCLATI FT 2 "HEHRFILATDI + 

" ONSEHRSTI43IH"  HCHRFLLA3ICHRE (143 
ICHRECIAZI +" — THCHRELLASICHRECLASICH 
REASZEIH®  — MSCHRSLLAZIH"  TACHRSLIAS 
)+# SECHRFLLASICHRECIASICHRE (LAT) 
Z660 LOCATE 1,9:PRINT CHRS(IABI+" "+ 
CHRS11433+" "4CHRSELATIH+"  "4CHRSTLE 
Bye MICHRSLIADIH"  S4CHRSHADI en 
+CHRE E13 +" "+CHREELAZI SS" !+CHRE (1 
AIR TICHRELLASIHT  S4OHRBLIATI +" 
"+EHR$ 1143} 


CHRS ELAIICHRE GL 
"4+CHRS 014334" 


2570 LOCATE 1,10: PRINT CHRSI14II +" 


+CHRE (143) 4" "+CHRS ELAZICHRE OLAFIH" 
"+CHRE(14I4+"  THCHRSCIEZIH"  "+CH 
RETIABI+"  HH+CHRFELIII +" "+EHRS1143 
ICHRSCLASIH" *"+HEHRELLASI HF OO NHCHRSEL 
143) 5 
26890 LOCATE 9,133PRINT CHRSTIATICHRET 
143) CHRF L1AT) +" "+CHR$ E1L43ICHRF 143 
ICHRS (143) +" "+CHRF 145) +" !+-CHREL 
143)+" “+CHR# 1145) 4" "+CHRSLLASICH 
REULASICHRFOLISICHRELIATI HH" T+CHRS A 
A3ICHRE(LASICHRELIAFI 
2670 LOEATE 9,13:5PRINT CHRSLIASIH* # 
+EHRFIIASIT"  OPHCHRFILITIH"  ONHCHRFIL 
#3)+" "+CHRSCIAFIH"  "HCHRECLAZIT" 
"+EHRFLLATI +" OO HCHRFLLIATI +" "+C 
ARFE1AII+H  P4+EHRS(1AZ) 
2700 LACATE 9,15:PRINT CHRFI14F)+" * 
+EHRSETIADI HH PHCHRE OLASICHRELLAFICHR 
2114334" "+CHREL143I+"  P+CHRFE (143) 
+" "+CHRFL143)4+"  NHCHRSLIATICHRE FL 
SSICHRFL1AI) +" "+EHRECLAZIEHRE (LAT) 
EHR$ (1433 
27109 LOCATE 9,15: PRINT EHRFI1aHI +"  " 


Compute mik 


programme 


+CHRS 133) 4" IHCHRELLATI +“ 
AZIrt OO MECHRELIFITIH" "+HCHREELEII HH" 
CHR ELATIH+" F4+CHREELASIH" "4E 

HRS (133 +" PHCHRS (1A 

2720 LOLATE 9,17: PRINT CHRFLLADICHRSE 
IHZICHRECLADI + "HEHRFELRSIH+" "CH 

RE(LATI +" MHCHRECLAT) FH" "+CHREIIE 

+" "+CHREELAFICHRE CLATICHRF 1A) 

CHRELLATI4+"  "4+CHRELLATIH" OO "HCHAS LIE 
5) 

2730 PEN 1:L0CATE 31,1: PRINT*fgh*ıLOR 

ATE 5,21 PRINT" #gh"ıLOEATE 31,24PRINT“ 
i4k"sLÖCATE 5,31 PRINT"iJk #gh 
"LOERTE 17,41 PRINT"I jK” 

2740 LOCATE 37,Bı PRINT"ab"ILÖCATE 2,3 
SEPRINT"PLAYERL"ıNIT=1 

2750 LOCATE 12,20:1PRINT"EOFYRIGHT 198 

& BY"ILOCATE 8,2353 PRINT’MKPRODU 
ETITDN 5" 

ZF&0 INK 1,267 ENK 2,11: INK 3,& 

2780 BOTD 2900 

2790 ILSCRDL,1,.2,3,4,3 

2800 IF AUT=0 THEN LDOCATE 37,84 PRINT” 
de" ELBE LOEATE 37,0: PRINT" ab" 

2810 IF AufT=0 THEN AlT=i ELSE Aif=o 
2830 IF INKEY(&4)=0 THEN LOCATE 1,191 
PRINT"PLAYER1FıMIT=-i 

28409 IF INKEYI&S)=0 THEN LOCATE 1,15: 
PRINTFPLAYER2*" AM T=2 

2830 IF JOY(O)=1& THEN a=REMAINILI:GO 
TO 650 ‘ 


"+CHRE GL 


BE = = 3 7 202 20072 
* SOUNDTRACK 
BR = 2 3 0 2 20002 0002 


BOSUB 3140 
yelsiserbstes2rieliENT -2,1,3,2,1, 


ENV 1,1,15,1,15,-1,51ENT -Lu1,1, 
4,1,*1,31ENV 2,=11,6000 
2950 IF t=Z THEN t=4 ELSE t=2 


2760 READ aılF a=0 THEN IF t=4 THEN R 


ESTORE 3068018010 2950 ELSE RESTORE 30 
40:x=-S:ıG0T0 29750 

2770 IF a<>1 THEN SOUND 130,a8t,790,7, 
2,1 » 

2780 
i=17 
29770 
3000 


SOUND 1,011) ,20,12,1,2r1=i+1ı IF 
THEN i=i 

FOR UNTER=1 TOD SCrNEXT UNTER 
nu+tisIf x=A4 THEN s=O0:G50Sub 3020 


3910 GOSUB 27901 G0T0 2949 

3020 IF y=i THEN yrZı50LND 4,0,20,14, 
1,9,301 RETURN 

3030 IF y=2 THEN y=1:5HND 4,0,20,18, 
1,0, 152 RETURN 

3090 DATA A,1yts1.l, 
3050 DATA iyislslıl, 
Ari 

3060 DATA 1,1,1,60,1,53,8,47,1447,145 
3,1447,1,45,1,45,1545, 1,4041 

3070 DATA 38,1,38,1,45,1,47,1,53 121, 
1,60,1,53,1497,1,47,1453,1,47,1,45, 1, 
45,1,45,2,40,1,38,3,38,1,4542447 4,1453 
3080 DATA 141,1,32,1,30,1,27,1327,1,4 
5,1,47,1,53,1,53,1,32,1,30,1,27,14,27, 
1445,1,47,1,53,1,53 

30909 DATA 1,60,1,53,5247,1,47 0,1453, 15 
47,1,45,1,45,1,45,1,40,1,38,1,38,1,45 
„1,47,60 

3100 DATA 1,5,1,60,1,63,1,7141,71,146 
3,1,71,1,60,1,80 

3110 DATA 1,80,1,7142,63,1,63,1,71463 
‚50,60 

3120 DATA 1,1,1,1,60,2,63,1,78,1, 71,1 
„63,1,71,1,80,1,80,1,80,1,71,1,63,1,6 
3,1,71,53,580,50 

3130 BATA 1,14,1,14,60,1,53,1,47,1,47,1 
53,1,47,1,45,1,45,1,45,1,40,1,38,1,3 
8,1,45,1,47,1,40 

3140 DATA 1y1siy41,1,41, 1,1 

3150 DATA O0 ” 

3150 DATA 478,478,470,470,558,548,568 
PL=1:) = 


+ 
’ 


1 
dukplgigisäuist 
3 


49 


programme 


3170 DATA 319,319,319,319,379,379,379 21957 22001 3774 
379 3610 IF NAS{NI<C>H" " AND NASINI<CH"" TH. 2205- 22101 97227 
3180 RESTORE 3160 EN N=N+i 2215- 22201 43032 
3170 FOR i=1 T0 i1&:2READ Dt1):NEXT i 3620 GOTO 33560 2230- 22401 36710 
- 3450 FOR Z=LEN{AF) TO 12: A$=A$+" "ıNE SOSO- 2260: 90577 

3200 RESTORE 3040 xT 2270- 2290: 50241 
3210 RETURN 3450 RETURN 2290- 2300: 37214 
3295 3495 ’ 2310- 2320: 2900 
3300 7. RHEIN 3700 HR 2330- 2345: 4200 
3305 * BRAFIK FUER HIEHSEORE 3705 ' NAMEN FUER HISHSCORES 2350- 2355: 9029 
ZI en 3710 0 ses 2340“ 73451 3774 
3320 SYMBOL 118,0,0,154,210,218,210,1 3715 2370- 23809: 14027 
55,048YMBOL 1197,0,0,210,155,219,15542 3720 RESTORE 3760 2370- 2400: 52638 
02,0 " 3730 FOR I=1 TO 10 2410- 24201 38294 
3330 LOCATE 7,4:PRINTTA B CD E 3740 READ 81D ,B#1TD3 2430- 2440: 67444 
FG H I"zLOcATE 7,63PRINT"I K L 3750 NEXT Z450- 2460: 44317 
MN O0 PR S":LOcATE 7,8:PRINT"T 3760 DATA 1500,MICKEY MOUSE, 1325,ME D 2470- 2480: 45179 
UVHV 0. von" ONALD, 1130,LUPD-FACE , 795, DONALD DUCK, 2490- 25004117217 
3340 IF SUC=O THEN RETURN 720 ,BIS-CHEF 2510- 2520: 73514 
3350 BUX=91: BUY=3543 BUA=BUX: BUB=BUYıN 3776 BATA 580,01.B-SHATTERHAND, 450 ,JDE 2530- 2540: 78191 
=0: BX=O: BYeürFll=0 -CDOL. . » „425, J0E5-BROTHER , 380 ,S00FY-B 2550- 75401 23158 
3350 PLOT BUX,BUY,1:DRAW BUX+25,BUY:D 0Y ,200 ,ABENT.-KOJAK-. » 2570- 2695: 1664 


zus 


RAW BUX+25,BUY-22:DRAN BUX „BUY-22:DRA 3780 RETURN 


2600- 2605: 7066 


W BUX „BUY 2610- 2615: 3794 
33570 IF JOY(O)=8 AND BUX<43G THEN BUK 2620- 2625: 65418 
=BUX+49: BX=BX+1:BE=1 2630- 2640: 46492 


3580 IF JOY{O)=4 AND BUX>F5 THEN BUK 
=BUX-A4E: BX=BX-1:BE=1 
3370 IF JOY(O)=2 AND BUY>310 THEN BUY 
zBUY-32: BY=BY+1rBE=t 


2650- Z&60: 57096 
2&70- 26804 69011 
2&90- 2700 41921 
2710- 2720r 57723 


CHEEK V1:PRUEFSUMMEN: 1070- 1080: 33787 


1090- 10951 SEA 


. MMEN 1100- 11054 11747 
3400 IF JOY(O)=1 AND BUY<350 THEN BUY ER os 18004 se IE | 2730- 27401114048 
=BUY+32:BY=BY-1: BE=1 0 1305 1sı07 1120- 1130+ 71170 | 2750- 2760: 35747 


120- 

3410 IF JOY(O)=1& THEN 3450 

3420 IF BE=1 THEN PLOT BUA,BUR,0:DRAW 10 FE 108% 
PUA+28 ,BUB:DRAW BUN+25 BUB-224 DRAW B 


UA,BUB-22: DRAW BUR, BUBr BUA=BUX: BUB=BL 1e0- Is Free 


2780- 2790: 9524 
t160- 11705 79942 | 2800- 2810: 977088 
t180- 11903 32249 | 2830- 2940: 107185 
1195-: 1200: 3794 29350- 2860: 31276 


1140- 1150: 788647 





Y:BE=0 - 200- 210: 28117 1205- 12103 9164 | 2695- 2900: Asa 
3430 FOR TIM=1 TO SO:NEXT TIM 220- 7304 32339 1215- 1220: 4885 2905- 2910: 10757 
3449 G0TD 5350 240- 250: 26107 1230- 1240: 44519 29715- 2920: 1046 
3450 IF N>12 THEN Fil=1 260- 270: 37763 1250- 17240: 14104 2930- 2940: 72049 
3850 IF BX=0 AND BY=0 THEN NA${N)="A" 2280- 270: 29842 1270- 12005 42747 29750- 29760: 52786 
ELSE IF BX=1 AND BY=0 THEN NAFtWe"B 300- 310: 37409 1290- 1300: 2603 2770- 2780: 82604 
" 320- 3301 41702 1310- 1320: 33776 | 7770- 3000: AOAB7 
3470 IF BX=2 AND BY=0 THEN NAFCNI="E" 340- 350: 41772 1325- 13504 27495 3010- 3020: 42938 
ELSE IF BX=3 AND EY=0 THEN NAFIND="D 360- 370: 40517 1340- 13501 48570 3030- 3040: 45716 
" 380- 3901 33416 1360- 1370: 62871 3050- 50603 40387 
3480 IF ExX=4 AND BY=0 THEN NAakt="E" 400- 410: 41504 1380- 1390: 13403 3070- 3080: 109506 
ELSE IF BX=5 AND BY=0 THEN NAFiNI="F 420- 4501 43473 1400- 1410: 75573 3090- 3100: 53824 
“ i 440- 4501 417359 1420- 1430: 18598 $110- 3120: 40507 
3490 IF BX=6 AND BY=0 THEN NAFINI="6" 250- 470: 38094 1430- 1450: 41570 3130- 3140: 41012 
ELSE IF Bx=7 AND BY=D THEN NAscCHI=#"H 480- 4901 33647 1440- 14701 43593 3150- 31601 27468 
" 500= 5101 38494 1480- 1490: 37240& 5170- 3190: 29665 
3495 IF BX=B AND BY=0 THEN NAFINI="I" 520=- 540: 29235 1495- 1500: &230 3190- 3200: 535847 
3500 IF BX=0 AND BY=t THEN NAsiN)="J" =A0- 5501 38452 1505- 1510 15708 3210- 32051 506 
ELSE IF BX=1 AND BY=1 THEN NAFÜNI="K SE0- 570: 34397 1515- 1520: 10074 33500- 3305: 33172 
" S80- 5901 60905 1530- 1335: 86475 | 2310- 33201 42755 
Z510 IF BX=2 AND BY=1 THEN NASND="L" 400- &idı 85740 1540- 15501 38282 3330- 33401 66024 
ELSE IF BX=3 AND Brei THEN NAsthI="n &20- &301 109717 1540- 13701 705645 3350- 3360: 45571 
i 640- 645: 53942 1580- 1590: zzass | 33707 5300: 57127 
3520 IF BX=4 AND BY=1 THEN NASND="N® 650- 655: 9035 1600- 16105 1471 | 32707 34004 50785 
ELBE IF BX=5 AND BY=1 THEN NAS(NI="D &60- #701 28833 1620- 16301 18704 3410- 34201 20098 
" &E0- 6901107313 1640- 16455 159 | 34397 39403 21102 
3530 IF BX=6& AND BY=1 THEN NAFIND="P" '895- 7001 8498 1650- 1655: Ba6? 33509- 34601 39093 
ELSE IF BX=7 AND BY=1 THEN NASIN="R 705- 710: 22044 1560- 1665: 3794 | 24797 3480: 44654 
" 715- 7203 523 1670- 1600: 27941 | 33707 3975: 74170 
3535 IF BX=B AND BY=1 THEN NAS{NI="B" 730- 7401 12241 1690- 1700: 2u702 | 3700- 5510: 46138 
3540 EF BX=0 AND BY=2 THEN NAscNI="T" 750- 760: 28008 1710- 17501 17502 | 3529- 5550: 37591 
ELSE IF BX=l AND BY=2 THEN NAF CN .eLU 770- 760: 71524 1775- 18001 2820 | 25355- 5540: 75022 
” 790- 8004 73592 1805- 1810: eı4a | 39507 3560: 66040 
3550 IF BX=2 AND BY=2 THEN NAS(NI="V" B10- 8204 22527 1815- 1820: 1021 3570- 35801 64555 
ELSE IF BX«3 AND BY=2 THEN NAFCNI="W 530- B40r 42331 1820- 1A40r 40379 3590- 3400: 26865 
" B845- 650: 2408 1850- 1860 &0B8 S610- 5620r 24721 
3560 IF BX=# AND BY=2 THEN NAFiNI="Y® 855- Bä0ı 5273 1870- 18401 95444 5650 5660: 47178 
ELSE IF BX=5 AND BY=2 THEN NA${NI="- 865- 870: 13497 1890- 19901 73270 5673- 5700: 135114 
" ELSE IF BX=6 AND BY-Z2 THEN Nase" 880- 890: 58327 1919- 19201 69472 57057 57107 33563 
““ 895- 900: 1821 1930- 19401 74339 3715- 5720: 1448 
3970 IF BX=7 AND BY=2 AND N?O THEN N= 310- 9201 55463 1950- 19951 16714 3730- 3740: 21106 
N-L:NAFCN) =" “ . 2930- 9agı 535516 2009- 2005r Ss3083 3750- 3769: 58115 
3580 IF BX=B AND BY=2 THEN AS=NA$(O)+ 950- 9608 51312 2010- 2015: 2408 3770- 37802 A7a31 
NAFCLI+NASC2IH+NAFCH +NAF CA) +NAFLSHHNA 970=- 980: 725172 2020- 20303 387797 m  —— — nm 
tb) +NAFLTIHNAFTEI +NAS LFI HNAF LO) +NAF 385- 99ı 34845 2040- 2050: 97402 GESAMTCHEEKSUMME: s4988 
GLd+NAFELDIHNAFTLSISFOR CLE=6 TO 13: 995- 10001 3907 2O09S- 21008 2030 . 
NAFLELEI=" ":NEXTSGOTO 3650 1005- 1010: 9238 2105- 2110: 4255 


3570 LGCATE 15+N,15>PRINT NAS{N} 
3609 IF FiL=i THEN PRINT CHR$(7IZN=N- 
13FUL=O: LOCATE 26,157 PRINT" "aNAFtLITI 


2115- 2130: 25188 
2140- 2150: 53885 
2180- 2170: 7122 


1615- 30201 20045 
1030- 10403 48308 
1050- 1050: 59132 


Sompute mib 1186 





Abgesehen davon, daß das Pro- 
gramm seine Funktionen selbst 
erklärt, seien doch noch ein paar 
Worte über dieses fantastische 
Spiel. gesagt. "Disc of Tron” hat 
nichts mit einer besonderen Form 
von Disketten zu tun. Vielmehr 
mit einem beliebten Freizeit- 
sport: dem Frisby. Die vorliegen- 
de Computerversion hat aller- 
dings einen etwas agressiveren 
Beigeschmack: auf zwei in der 
Tiefe des Raumes schwebenden 
Plattformen erscheint wechsel- 
weise eine Person, die es zu tref- 
fen gilt. Aber: die Uhr läuft gegen 
Sie, Haben Sie in einer bestimm- 
ten Zeit nicht einmal getroffen, 
ist das Spiel vorzeitig beendet. 





Herrausragend: die tolle Grafik 
und die fantastischen Großbuch- 
staben, Hier kann der Schneider- 


10 RRRHHHHHHHE 

20 * ## Disc of TRONN *. 

30" ## #4 

20 * sic) by Au, Softee 

so’ ## “+ 

[ee U 5 and + 

70°’ ## Luisa Voi + 

80 ’ wi ”* 

90 ’' ##4Te1.0711/5527759# 

100 eh 

110 e 

120 ı 

130 3 

150 DPENOUT"dum" MEMORY 1999701 CL05EDU 
T 

150 POKE &B939,,8C9r MODE 1 

170 INK 0,231 INK 1,14:1INK 2,0:1NK 3,B 


«EORDER O:FOR t=0 T0 1001 PLOT RND=540 
„RND=400,RND#4: NEXT 

180 GRIGIN 300,200: DEG: FÜR t=0 TOD 150 
MOVE 0,0:DRAW SINit#Z2I#100, E05 (#238 
50 ,21NEXT 

170 FOR t=6 TO 180:MOVE 6,0: BRAW SINT 
‚t22)x%59,C0514#2)*25,3:NEXT 

200 FOR t=0 TOD 350 STEP Z:MOVE 0,0:PL 
OT SINtEI#90,C05(1) #44, 3: NEXTSORIGIN 

0,0 

210 af="DISC": y=270:G0SUB 290 

220 a$="of":y=170:605UB 2970 

730 a$="TRON"ry=-50:G05UB 290 

240 PDEE &BYF39,4F3 

2509 LOCATE 4,25:PEN 3=:PRINT"ic} by A. 
M.Soft and Luisa Voi" 

250 LOGATE 17,1:PEN 2:PRINT"Loading" 

270 LOAD" I" ö 

290 RUN"t" 

290 LOCATE 1,25:1PRINT a# 

300 x=240 LEN (a#) #15:FOR a=14 TO 05T 
EP -2:FOR b=0 TO LENtas}#14-2 STEP Ze 
IF TEST(b,a? THEN FOR c=0 TO ZrFPLOT { 
c-dı#=Zrtatb)#3trx „yta#4,2:3DRAWR 0,20:0 
RAWR &,6,35:NEXT:FOR c=+i TO i STEP 23 
PLOTR -2,-2,1:DRAWR O,c#20: NEXT 

310 NEXT b,a1LNCATE 1,257 PRINT STRING 
£I(LENta$))," "ISRETURN 


11/86 


— aaar/ — FL er 
v5} 208 L ' 
AR auf ger } sel FH GG | 


programmierer einiges an Tricks 
für seine Arbeit herausziehen. 


10090 SAVE"disc’oaf tron” 
20010 END 


|CHECK Wi: PRUEFSUMMENSs 


ZEILENNR.s SUMMEN 
19- 203 25128 
s0o- 40: 19757 
50- &0ı 7132 
70- 80: 15127 
30-. 100: 23375 

116- 120: 2 
130- 1501 6505 
180- 170: 57227 
180- 170: 84278 
200- 2101 77554 
220- 230: 39084 
240- 250: 8195 
260- 270ı 18256 
280- 27%ı 3432 
3066- 310: 62115 


40000-100101 10528 
GESAMTCHECKSUMME: 140897 
10 WHHHRHBIHSHHRIIENER 

20 ’»# * 

50 '* Zeichnen des * 

20 '* Raumes % 

50 '# * 

60 ee 

70 ı 

E80 MEMORY 199909 


90 POKE %&B9397,&C09 

100 MÜDE Oz: INK 0,0:1NK 10,151 INK 12,1 
SE INK 13,6: INK 4,121BORDER 26 

119 RBEG:ORIGIN 9,0 

120 FOR t=125 TO 2757 MfVE 159,t:DRAW 
490,t,102NEXT 

130 a=0 

140 FOR t=0 TU 124: MOVE Otra,trDRAN 64 
Q-a,t,i12ra=at1.2:NEXT 

150 FOR t=276 {0 400:MÜWE Ora,tıDRAW 
690-a,ttaza-1.ZıNEXT 


180 ORIGIN 150,304FOR t=0 TI 190:MDVE! 25 


GCompube mib 


programme 


0,01 DRAW SIN(t#2) #18,C0S(t#Z)#4 ONE 
we cm 

170 ORISIN 450,304FÜR t=0 Tb 170: MOVE 
0,02DRAW SINIt#+2)#10,LOBttE2) #4 ,O:NE 
xT 

180 DRIGIN 390,175: FOR t=0 TO 1904 MOV 
E 0,0: DRAN SINItE2)RF,C0BIt=23) #2,03 NE 
xt 
190 GRIBIN 249,125: FÜR 1=0 TO 1901M0V 
E 0,0: DRAW EINtE#2)#9 ,C051t=2)#2,0:NE 
xTt 

200 ORIGIN 160,S0:FOR teü TO 196: MOVE 
0,0:0RAW SINtLRZI #30 ,COSIt#2) #10, 138 
NEXT 

210 GRIGIN 480,50: FOR t=0 70 170:MUVE 
0,03 DRAW SINtLS2) 530, LUStt#=ZI #101 NEN 
T 


220 ORIGIN 390,135: FOR t=0 TO 190:1MDV 
E 0,01DRAW SINIL«2I #14, COBtEHZIHANEX 
T 


230 ORISIN 240,135: FOR t=0 TD 1909:MOV 
E 0,0: DRAW EINIL#2I#16,COB ER) RA NEN 
Tr 

240 DRIGIN 320,350:FOR t=0 TO 340 STE 
P Zıx=50s5SIN tt) y-JORrbCOS Ct’ MOVE 0,04 
DRAW x ,Y,10: NEXT 

250 ORISIN 320,340: FOR t=O TO 360 STE 
P 2ın=70s51INtt})ı ya294HCOStE) aMOVE 0,01 
DRAW 4 ,Y,311:NEXT 

250 PRINT CHRSTZZIEHRE TI ALDCATE 4,2: 
PEN 4: PRINT"SC1 "3 3PRINT CHRF122) CHRS( 
0) 

270 POKE &B939,ıF3 

290 FOR i=0 TO 141READ aıPDKE 20000+ 
‚„arNEXTIECALL 20000 

270 FOR i=0 TO 11:READ aıPOKE 2000041 
„arNEXT . : 
300 CLSıPRINT*Absavan" ı BAVE*"disc-pic" 
6b, 20000, 14504+12 

310 REM end 

320 DATA 1,0,64,33,0,192,17,44,78,237 
+176,201,1,0,64,17,0,192,33,44,70,237 
+175,201 : 

10000 "rs 


10010 SAVE"disc-pie”sEND 


CHECK Vi:PRUEFSUMMENT 


ZEILENNR,.ı SUMMEN 
10- 20: 8708 
30- 401 20944 
=o- &0: #708 
%- BOı 727 
90- 100: 36962 
110- 1204 55436 
150- 1401 44514 
150- 1&60r 60303 
170- 180ı 34837 
190- 200: 30009 
210- 2201 31602 
Z30- 240: 62442 
250- 2601111040 
270- 280: 45167 
290- 300: 106115 
319- 320ı 11017 

10000-100101 17679 





BE u 2505 2 2 2 2 2 & 202 2 2 202 


"+ 
’# 


DISC OF TRDN * 
tc} by = 
’# A.M.Soft and * 
'#+ Luisa Vol * 
nn eh 
’. Hauptteil * 
RHEIN 
: 
19 2 
20 : 
21 MEMORY 199901B805UB 251 
22 DIM length (80) ı DI ton (809) 56010 17 
F4 


MODE OrBORDER 11rENK 1,4 INK 2,19 


51 


programme 


INK 3,24: INK 5,2: INK &,15: INK 7,0: INK 
8,91 INK 5,41 INK 4,185: INK 10,5: INK 12 
sZzı INK 0,0: CALL 20000 

24 8=0:5h=320: cwlrd=0rer0s Felıg=ürhet: 

j=0rsca0sk=5:1=200 

25 PLOT 6,200,2:BRAW b+4,200 

26 GODSUB 808 

27 MOVE 445, ,B&ıRESTORE 991 CALL sprite 

28 IF arü THEN MOVE 250, 1501RESTORE 1 

A1l1CALL spriterıSthlND 129,100,10,15,2, 

Sıiol 

29 IF 2=10 THEN MOVE 230, 158: RESTORE 

I11:EALL spriterMüVE 558,158: RESTORE 

181:EALL spritesSOUND 132,100,10,15,2 
‚Sie 

56 IF a=20 THEN MOVE 358,158: RESTORE 

1413 CALL spriteri=t 

31 a=arlı IF a>=2i THEN a=0 

32 I=1-1:IF 1<=0 THEM GOTO 174 

35 j=JOYtOrsiF j=© THEN GOTO 37 

s4 IF jJ AND 4 THEN beb-4; IF b<i=1Sh TH 

EN b=156 ELSE PLOT b+4,200,10:DRAW br 

8,200:PLOT b,200,2:DRAW b+4,200: SOUND 
135,243,5,15,0,5 

35 IF j AND 8 THEN heb+4ı IF b3=476 TH 

EN hb=475 ELSE PLOT b-4,200,10rDRAW b, 

200:PLOT b,200,23DRAW b+4,2001 501WND 1 


35,243,5,15,1,2 

36 3F J AND 1 AND c=0 THEN MOVE 144,8 

G:RESTORE, FHEALL spriterMOVE 466,861 

RESTORE 991 CALL spriterc=1s5SDOUND 1,20 

00,0,15,1,3 

37’ IF j AND 2 AND c=1 THEN MOVE 454,8 

&:RESTORE 99:CALL spriterMOVE 144,86: 

RESTORE FHCAL spritercaörsülNnD 1,20 

00,0,135,1,3 

s3 IF ij AND I& THEN d=i 

3? IF d=0 THEN 28 

40 IF c=1 THEN cc=cre=80r f=464s heigce 
316070 31 

4 IF c=0 THEN eececre=80: f=1501c=3 

42 IF he1 THEN 51 

43 te#+52ılF #>=b THEN #=b 

44 e=ze+A: IF e>=150 THEN e=1S01d=01c=0 
ıg=-0:G6010 60 

45 IF 9>9 THEN MOVE #,esRESTORE 154:C 

ALL Sprite:CALL &BD19:CALL %BD1F:MOVE 
f,esRESTORE 154: 6ALL sprite:Güto 48 
46 IF g<=5 THEN MÜVE f,erRESTORE 156: 
EALL sprite:CALL &BDIF:CALL EBDIFIMOV 

E f,erRESTÖRE 15Bı CALL sprite 

47 IF g>5 THER MOVE f,erRESTORE 15616 
AL sprite:rCALL %ED1F:CALL %BD19: MOVE 
f,eiRESTORE 156: CALL sprite 

49 q=g+1 

47 SOUND 72,8,0,15,1,3 

50 GOTO 28 

51 f=#-32: IF f<sb THEN fob 

32 sze+r4: IF e>=1S0 THEN e=1SCıd=0ıc=i 
?g9=0: h=0: BOFD 40 

53 IF g>7 THEN MÜVE #,esRESTORE 154: 
ALL SpritesCAll. %ED1FISCALL &BD1FıMÜVE 
#,e:RESTDRE 1594: CALL sprite:Güfin 5% 
54 IF g<=S3 THEN MOVE f,e:RESTÜRE 1583 
TALL spritesCAlL &BD19:ıCALL &BD19: MOV 
E f,erRESTORE 158:CALL sprite 

55 IF 9>5 THEN MOVE #,e:RESTÖÜRE 1564:C 
ALL spriterCALL %BDLP:CALL &BD1FI MOVE 
f,erRESTORE 13565:1CAL, sprite 

36 g=g+i 

37 SOUND 2,8,0,15,1,3 

58 G0T0 78 

59% — Test —- 

&0 IF i=1 THEN &2 

61 IF i=2 THEN 45 

62 IF #=232 OR £=240 THEN 45 ELSE 64 
63 IF #=372 OR #=J580 THEN 44 ELSE 44 
64 k=k-1ıIF k<O THEN GOTO 174 ELSE 60 
SUR 68:G50T0 26 

65 ° ——- Treffer —— 

66 IF i=1 THEN MOVE 730,158: RESTORE 1 
AlrCALL spriteıG0TD 68 

67 IF i=2 THEN MOVE 358,158: RESTORE I 
S1:CALL sprite:GötO 79 

&8 MOVE 230,158:5RESTORE 161l:EALL spri 
te 


69 PLOT 6,200, 10rDRAR b+8B,2001b=320rP 
LOT 6.200,21 DRAN b+4,200 

70 GEISUB 90 

71 FOR t=20 TO A400 STEP 10:STHND 130, 
10=ABS tt) „0, 15,2, 32NEXT 

72 FOR t=400 TO 20 STEP -105 SOUND 130 
‚t0=ABS(t) ,0,15,2,31NEXT 

73 MOVE 230,159: RESTDRE 1#11CALL spri 
te 

74 sc=sc+20skak+i 

75 GOSUB 89 

7& GOSUB 974 

77 MOVE 230,1581RESTORE 1411CALL spri 
te:1=130:160T0 2B 

78 MOVE 368,15A:RESTORE 16l:CALL spri 
te , 

77 PLOT 6,200, 10: DRAW b+8,200:b=320:P 
LOT b,200,23BRA4 b+4,200 

80 GOSUB 90 

81 FOR t=20 TO 300 STEP 10:50LUND 130, 
10*ABS (tt) ,0,15,2,51NEXT 

82 FOR t=400 TO 20 STEP -10s50UND 130 
‚tO8ABStt) „0, 15,2,3: NEXT 


65 MOVE 358,158: RESTORE i6lıCAlL spri 
te 

84 sresr+20:kek+1: IF k>=10 THEN k=10 
95 GDSUB 88 

84 GOSUB 74 

87 MOVE 568,158:RESTORE 144:CALL spri 


teı 1=1501 8010 28 

BB" ——— Anzeige —— 

87 LOCATE 4,2:PAPER 12:PEN 2:PRINT"SE 
r" $sckLOCATE 13,2:PEN S:PRINT"DIs"Iks 
PAPER ©: RETURN 

90 IF cc=1 THEN MOVE 466,86: RESTORE 7 
F:CAL spritesMOVE 446,94: RESTORE 120 
:CALL sprite 

91 EF co=0 THEN MOVE 144,86: RESTORE $ 
F:CALL spriterMDVE 144,86ıRESTORE 120 
sCALL sprite 

72 FOR t=-5 TO 15:50UND 1, ABS(n)#10,5 
»‚15,0,0,ABS in) ıNEXT 

73 RETURN 

74 IF cc=1 THEN MOVE 466,,BhsRESTORE 1 
20: CALL spritesıMOVE 444,BSrRESTORE 97 
sCALL. sprite 

95 IF .cc=0 THEN MOVE 144 ,85:RESTORE i 
20:CALL sprite:MOVE 144,86: RESTORE 99 
:EALL sprite 

94 FOR t=-5 TO 15725QUND 1, ABS (m) 3#10,5 
,15,0,0, ABS in) ıNEXT 


97 RETURN 
78 “-- Spriteg —— 
97 Data 111 
100 DATA tı11i 
101 DATA 41111 
102 DATA 11111 
103 DATA 1 
104 DATA 2222222 
105 DATA 222222222 
10& DATA 22 222 22 
107 DATA 22 222 22 
108 Dark 22 222 22 
1607 DATA 44.5355 44 
1109 DATA 555533 
112 DATA 555 555 
112 DATA 535 555 
113 DATA 335 555 
114 DATA 5553 355 
115 DATA 955 555 
11& DATA 355 555 
117 DATA &46h Gdbh 
118 DATA Abb A & bh 
119 
120 DATA 44 44 
121 DATA 22 111 22 
122 DATA 221111122 
123 DATA 2ZZ1111122 
1124 DATA 221111122 
125 DATA 22 ı 22 
126 DATA 22222272772 
127 DATA 2222222 
128 DATA 2222 
129 DATA 222 
130 DATA 222 
131 para 55555 


Sompube mi 


132 DATA 333 5595 

133 DATA 555 553 

134 DATA 593 5355 

135 DATA 555 555 

1356 DATA 5335 5355 

137 DATA 355 555 

158 DATA bbbhb bb6h 

139 DATA büh & A bh 
140 

141 DATA 55 

142 DATA 5353 

143 DATA 5555 

144 DATA L-7-) 

145 DATA I777 

146 DATA 7777 

137 DATA 77T FF 

148 DATA 8908 4 

147 DATA 8888 

i50 Dark 88 88 

131 MrfA Be 88 

152 DATA 333 333 

153 * 

154 DATA 2 

155 * 

156 DATA assa 

137°. 

158 DATA aanasa 

157 DATA anaaaa 

140 * 

141 DATA 4 4 2 4 
162 DATA FH 5 9 m 
163 DATA ’ S:baıh 
1454 DATA 244 RB 
145 DATA 1111 

164 DATA 381 172 
157 DATA #31 ib 
168 DATA 1111 

167 DATA 244 8 
170 DATA ‚535ba%& 
171 DATA 34159 a 
172 DATA & 4 2 34 
173 * 

174 ° ——- Game over 
175 FOR t=0 10 25:CALL &BCAD: SOUND 13 


5, (a+109#4,0,15,2,1rNEXT:SOUND 135,0, 
o 

17& 
INK 
177 


MODE 0: INK 0,0: INK 12,57 INK 1,207 

2,15: INK 3,1:BORDER 11:CALL 20000 

GOSUB 87 

178 a %&BD1F:CALL &BDi?7 

179 as="GAME" : y=290: GOSUB 206: a$="0VE 

R"+ y=150: 80SUB 2704 

190 IF sc>ehisc THEN hisc=se 

191 LOCATE 1,1:PRINF CHRFCZZICHRE DI: 

LOCATE 8,20rPEN izPRINT"HI:s "shise 

182 LOCATE 1,22:PEN Z:PRINT" DISC 

UF TRON (23 by A.M.Soft and 
Luisa VYoi PRESS FIRE 

183 LOEATE 1,1:PRINT CHR$ (22) CHRS(0) 

194 klang>2: music=o 

185 SDUND 127,ton (music) ‚length music 

?*1.3,15,3:50UND 134 „ton (music) /klang 

„length (musiz) „0,3 

185 music=music+t1:IF music=40 THEN mu 

sic=0:klang=2* {RND#+5}> +1 

187 WHILE SQ(1) >127:WEND 

188 IF JOY{O)=1& THEN BUOTOG 723 

187 GOTO 185 

190 STOP 

171 * -—- Anleitung/Music —— 

192 RESTDRE 215 

193 READ tonı IF ton=0 THEN GOTG 194 

174 ton tcount)=ton:READ length count} 

175 count=count+1:6070 193 

196 MOBE O: INK 0,0: INK 1,20: INK 2,9: 1 

NK 5,07BORDER 12: INK 10,111 INK 13,481 

NK 11,20: INK 12,18: INK 14,132INK 15,7 

:CALL 20000 

197 a$="DISC"ıy=280r:G0SUB 2061 a$="of" 

ıy=1503G0SUB 205: a8=" TRON" ı y=201 BÜSUB 
206 

178 LOCATE 1,25: PRINT" 

"3:1.DCATE 1,1 

197 klang=Z:music=ö " 

290 ENY 1,1,10,1,5,1,1,5,-2, 1,5, 1,2:E 

NT -1,1,5,1:2ENT -2,1,10,53ENV 2,15,-1 


Freszs Fire 
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„IOsENT -3,10,10,1,10 , 712,1 1ENVY 3,15, 
-1,30 

201 SDUND 129 ,tan (music) ‚Length (music 
7#1.3,15,3:150UND 134, ton (music)/klang 
„length (ausic),0,3 


re"j:KWHILE JEYCOI<>1ASWEND . 

224 CLSıINK 0,20 

225 PRINT"Wenn Sie mich treffen bekon 
nen Sie 20 Punkte dafuer und die 
voile 7/eit zu- rueck-Ausserden eine 


programme 


256 DATA 72,76,104,71,24,15,195,193,0 
257 DATA 221,225,253,225,201,203,29,6 
2,137 

258 DATA 80,149,56,242,77,209,25,237, 
S3 


202 music=muaie+l:lf music=40 THEN mu | Disc dazu." 259 DATA 91,201,177,25,17,0,192,.28,21 
sic=O1klang=2” (RND#S) +1 22& PRINTEPEN Z2:PRINTEPRINT"Ich Wuers| & 
20% WHILE SB HL27ıWEND che Ihnen nun viel Spass und hoffen | 260 DATA 49,4,17,80,192,25,197,221 ,16 
204 IF JOYtO}=1&4 THEM GDTO 218 diich verlieren Sie oft gegen mic | 261 DATA 225,193,257,91,48,174,62,0,6 
205 GETO 201 b,da ich ja sonieso besser bin duerf— | 242 DATA 126,40,24,19,19,17,19,17,31 
206 " -—— Schriftvergroesserrung -—— |te es auch nicht scmer sein.” 263 DATA 26,254,140,52 208,19, 26,214, 
207 POÜKE &B937,809 227 PRINTIPRINT:ıPRINTI PRINT" VIlide 
208 LOCATE 1,251 PRINT af EL GLUECK trotsdem" 264 DATA 32,56,6,17,26,214,32,48,177 
207 x=100-LENH{aAF) His FOR a=14 TO O ST | 228 LOCATE 16,24: PEN SıPRINT"Press Fi | 265 DATA 249,16,232,65,197,229,17,19, 
EP -Z:FOR b=0 TOD LENta$)#32-2 STEP 2 |re"ssWHlLE J0YtO)<>15: END 253 
210 IF TEST(b,a) THEN FOR c=0 TO ZıPL| 229 FÜR t=0 TO 25ICALL SBEADıSBUND 1353| 2646 DATA 19,39,17,26,254,140,32,174,1 
oT te-d) #2+ (atb)#d4rn  „yra#a,ZeDRAWR 0, | 5, 1ar100#4,0,15,2, 17 NEXT 7ı 
20:3 DRAWR &,6,3:NEXTEFDR c=-1 TO 1 STE| 230 G0T0 23 267 DATA 19,26,219,32,56,117,.221,.229, 
P 2rPLOTR -2,-2,1:DRAWR O,c*20:NEXT al MC — CODE [| —n_e 145 . 
2i1 NEXT b,a:LOCATE 1,254PAPER 12:PRI| 232 sprite=42010 268 DATA 195,120,254,0,40,8,17,26, 148 
NT STRINGFTILENTaASI)," "IıPAPER 6 233 RESTIRE 242: i=0ı ke0rREADR & 267 DATA 214,32,56,103,16,248,545, 24,2 
212 PÜKE &B939,4F3 234 WHILE a<256 25 
213 RETURN 235 POKE sprite + „arkektari=i+lsREAD| 270 DATA 2,23,217,19,725,214,32,564,78 
214 ° ——- Musikdata'’s ——— a 271 DATA 96,230,15,203,71,40,2,203,8& 
215 DATA &38,15,568,15,506,15,426,15, | 236 IF i MOD 8<>0 GUTD 240 272 DATA 247 ,203,87,430,2,205,231,230, 
426,15,379,15,426, 15,506, 15,538, 25,56 | 237 IF a=k Mob 254 GOfTO 237 217 - 
8,8,506, 15,505, 15,568, 15,638, 15,568,4| 258 PRINT "ERROR... "END 273 DATA 90,203,79,40,2,203,215,203,1 
5,638,15,558, 15,505, 15,426,15,426,15, | 237 k=0:READ a " 1 
379,15,424,15,506,15,630,25,568,8,506 | 240 WEND 275 DATA 95,430,2,203, 199,230 ,85,203,3 
„15,506, 15,568,15,568,15 . 241 RETURN 3 
214 DATA 438,60,478,30,478,30,379,15, | 242 DATA 253,229 ,221 ,229,32,42,179,23] 275 DATA 39,174,119,19,25,214,32,56,1 
379,30,379,15,426,15,426,15,505,15,63| 7,152 &7 
8,15,638,60,0 . 283 DATA 91,45,179,25,203,124,32,27,2| 276 DATA 50,230, 15,203,71,40,2,203,46 
217’ ——— Anleitung —— 15 - 277 DATA 247,203,097,40,2,203,231,230, 
Z18 MODE 11INK 1,01 INK 0,241 INK 2,5:1| 244 DATA 203,94,32,23,203,29,2353,33,3| 219 
NK 3,155BORDER 18 4 Z78 DATA 90,203,79,40,2,203,215,203,1 
219 LGCATE 15,13PEN I:PRINT"ANLEITUNG | 245 DATA 199,0,183,237,92,22,0,48,3 1 
r 246 DATA 15,122,149,58,106,87,30,200, | 279 DATA 95,40,2,203,199,230,05,174,4 
226 FRINTIPRINTIPEN ZıPRINT"SIie "ind | 37 Z80 DATA 119,62,248, 164,79, 35,62,7,B 
in meinen inneren gespeichert. und mu| 247 DATA 213,24,39,221 ,225,253,225,20| 281 DATA 164,177,103,16,166,19, 26,214 
“usen um Ihr Leben kaempfen- Abe | 1,121 „i17 
r das ist gar nicht so einfach denn 248 DATA 0,213,125,230,7,2053,39,203,2| 282 DATA 32,48, 250 ,225,1,0,8,9,61° 
ich werde gegen Sie spielen.” 52 283 DATA 48,8,1,80,192,9,62,199,87 
221 PRINTIPEN S:PRINT"Sie haben 5 Dis| 249 DATA 39,203,39,87,30,0,125,230,24| 284 DATA 164,103,193,15,140,221 ,225,2 
cscheiben sit dernen Sie mich treffen| 1 i 53,35 
koennen, Der Zielp| 250 DATA 248,111,203,37,203,20,68,77,| 2B5 DATA 225,201 ,256,170 
unkt der Disc ist an der hin- teren 197 24 * -—— Saveroutine -— 
Kand makiert." 251 DATA 203,37,203,20,203,37,203,20,| 287 BAVE"disce of tron" 
222 PRINTIPEN LıPRINT"Ausserden haben | 158 228 END 
Sir bloss eine genisse Zeit zur ver | 252 DATA 9,25,229,42,40,179,237 ,75,68| 289 Wenn nen 
uegung um sich zu Treffen, denn nenn| 253 DATA 44,179,7,203,44,203,29,205,1| 270 "ment ENDE HHHHHHHHHHH 
die Zeit abgelaufen ist,ist das 5p| %6 . 
iel zu Ende und ich habe gewonnen."3 | 254 DATA 44,203,29,5,0,203,44,.40,57 
223 LOCATE 16,24:PEN 2:PRINT"Press Fi! 255 DATA 20,203,29,36,32,8,120,147,85 
CHECK ViıPRUEFSUMMEN: 66- 671128859 128- 129: 3450 190- 191: 27137 232- 235ı 49348 
68- 69: BO18& 1350- 41318 400 192=- 193: 331285 254- 255: 43064 
ZEILENNR.ı SUMMEN 70- 71: 5075 132- 135: 53658 174- 1951 55548 256- 257: Saocd 
10- ilı 16936 F2- 735: 37513 - 134- 135: 5368 196- 19771 14752 258- 2591 508688 
12- 13: 17211 74- - 75: 32705 1364- 137: %Ibd ı19783- 179: 54848 260- Z6ir 45123 
14- 15: 17214 7h- 77 35797 138- 139ı 7192 200- 2011 53721 Zu2= 265: 49253 
16- 174 19232 78- 77ı 8127& 140-=- 4141: 1218 202- 203: 35452 264- 2465: 49580 
18* 19: 2 B0- 81: 3075 142 1455 30565 204=- 2057 14145 Zu6=- Z67ı 33748 
20- 21: 4426 B2- 85:1 38505 144- 1451 2412 206 207: 53258 Zzu0- 269ı 492083 
27 25ı 73617 Bi- 851 20990 146=- 147: 3140 2086- 209: 54087 270- Z71ı 44500 
24- 25ı 55795 Bh- 87ı 537752 148- 149: Sid 210- 211: 44188 272- 275ı 51361 
26- 27ı 27498 B8- 89: A20034 4150- 151ı 3192 Z12- 2153: 4032 274- 275ı 50807 
28- 29: 113790 20- Y1r 40403 152- 1531 28914 214- 215: 539194 27&- 2771 50143 
30- 31: 50453 P2- 951 14762 154- 13551 1592 15 217: 45051 276- 2791 47171 
32- 335: 59573 FA 95: 39490 154- 1371 26457 218- 219ı 39589 290- 281: 513516 
34- 351 653358 - 971 14762 158- 159ı 5615 220- 221, 52871 282- 2895: 36392 
36- 37: 89000 9B- 99: 12953 160- 1dlı 2691 2D22- 2251 932985 284- 285: 38577 
33- 39 22452 100- 1011 4200 162- 163: 7493 224- 225: 15397 286- 287: 27393 
40- Al 70046 102- 10%: 2632 164- 165: 4126 224- 2274 74598 2B6- 289: 73401 
42- 431. 0908 104- 105: 6550 166- 167: 7130 228- 2291 65596 270- z 25004 
At 45: 120321 31054- 107: 3880 169- 169: 4126 230 2311 13766 Annan nn Lana annane ann an nn ann an ann 
4h- 47: 85077 1086- 109 4014 179- 171: 7493 232- 255: 349893 GESAMTEHECKSLMMES 54047 
ad- 49: 12560 110- 111s 4934 172- 173: 3406 234- 235: GA465 
509- 1: 54592 112- 1151 53589 174- 175: 42302 236=- 237: 31966 
52- 55: 85950 114- 115: 5348 17&=- 177: 42351 2358- 239: 13443 
54 55: 85077 114- 117: 4280 178- 179: 40719 240- 241: 41a 
6 57: 12548 1i8- 119: 3981 190- 1513 44585 242- 243: 57410 
59-1 59ı 7319 120- 121: 4720 192- 1891 17899 244 2455 44363 
60- 611 13835 122- 1232 7900 184- 185: 24224 246- 247: 56984 
62- 435: 70913 124- 125: 5832 1B84- 167: 35452 2493- 249ı 50170 
[- 5 5) 5ı 57011 i26- 127: 5580 ı188- 169ı 10767 2350- 25jı 55620 
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GSompute mik 


programme 


SPACE-HAWK 


Nach der Entdeckung des Plane- 
ten IRIDIUM 4, im Sternbild 
Cassiopaia, hat die irdische Regie- 
rung beschlossen, den Planeten 
durch eine große Bewässerung- 
saktion für Agrarwirtschaft nutz- 


Insgesamt verfügen sie über 3 Ab- 
fangjäger, Das Spiel ist beender, 
wenn alle 3 verlorengegangen 
sind. 


Schnelles Reagieren und wohl ein 





tolle Grafik, Profi-Sprites — ig, 
heiße Action in einem Programm 


tionprogramm gefragt. Überwäl- 
uipend ist die professionelle Gra- 
fik der Sprites. 


Um die hohe Spielgeschwindig- 
keit und die fließenden Bewegun- 
gen der Sprites realisieren zu kön- 
nen, wurde die eigentliche Spiel. 


bar zu machen. 





Dies stößt allerdings auf den Wi 
derstand der mit den Menschen |! 
verfeindeten Cloronen, die den | 
Planeten ihrerseits als Militär ; 
stützpunkt benutzen wollen. Al- 
so schicken die Cloronen Robo- 
ter, um die bereits fertiggestellten 
Kanäle vor der Inbetriebnahme 
zu zerstören. Schwingen Sie sich 
also als Top-Pilot der irdischen 
Streitkräfte an die Kontrollinstru- 
mente Ihres ferngesteuerten Ab- 
fangjägers vom Typ SPACE 
HAWK MK I, um die Angriffe 
der Fremden abzuwehren. 


Die Roboter fliegen-in wildem 
Zick-Zack-Kurs durch die Kanäle 
und versuchen ihrerseits, den irdi- 
schen Abfangjäger abzuschießen. 
Haben Sie 15 feindliche Raum- 
schiffe getroffen, gelangen Sie in 


wenig Übung sind bei diesem Ac- 


routine 


in Maschinensprache 





i | ’ 1180 FOR ie TG AıREAD ex (i):NEXT i 1420 DATA 
Es neue Zone in der anders Ro 1190 FOR i=1 10 S1READ exitirunext 4 |00 . 
' 1200 FOR isi1 TO &:READ Fmti)sNEXT i 1830 DATA 

1 RE | 120° ca 
** 1220 'EPRITEDATEN LESEN 1440 DATA 
2 ee EPACE HAWK un: |i2i0 o0 
*r* 1240 DATA 00,00,00,64,00,09,00,00,00, 1450 DATA 
3 2.2 20202 ic) 195% rer 00 00 
*r* 1250 DATA E4,00,.00,00,00,40,40,C4,BB, 1460 DATA 
4 OTTFRIED SCHMIDT |&& 00 
“+ 1260 DATA 00,00,40,84,00,30,88,00,00, 1470 DATA 
5 HHHSHBHHRHSRRBHRHEISEN SEN | AO 00 
** 1270 DATA OC,FO,0C,88,00,00,40,06,F0, 1a80 DATA 
5° oc" 
7.’ 1280 DATA 89,090,00,84,58,30,44,4C,00, | 1490 DATA 
8 "INITIALISIERUNG 00 oa 
4° j 1270 DATA 84,58,30,#4,40,00,00,84,24, | 1500 DATA 
1000 INK O0,0s3INK 1,91 INK 2,212INK 3,2| Fo 7C ö 
A:INK 4,4: INK 5,3 1300 DATA 18,4£,09,00,70,0C,06,0C,54, | 1510 DATA 
3010 INK &,21INK 7,113 INK 8,26: INK 9, | 00 00 
iSeINK 10,1 1310 DATA 00,90,06,0C,00,64,00,00,70, 1520 DATA 
1020 ENY 1,=11,4000:ENV 2,=8,19 oc EO 
1030 ENT 1,5,-4,1,10,2,1,10,3,1,20,4, | 1320 DATA 07,0C,64,00,.00,84,24,0C,18, Erna DATA 
1,15,5,1 Eis 
1040 RESTORE 1070: FOR i=&9F00 TH &37F| 1350 DATA 00,00,00,90,00,64,C0,00,00, | 1540 DATA 
OBrREAD arPDKE i,a:NEXT i 80 j 40 
1050 FOR i=&9F10 TO KOFIBSREAD arPOkE| 1340 DATA 40,00,88,44,09,00,00,00,64, | 1550 DATA 
i,aıNEXT i 00 Eb 
1060 hec=01 G0SUB 5070 1359 DATA 00,00,00,00,00,00,00,00,00, | 1560 DATA 
1070 DATA £29,1,1,40,0,0,14,30,0 ao 00 - 
1050 DATA 129,1,1,60,0,0,13,35,0 1540 DATA 00,40,00,08,00,00,00,00,40, oo DATA 
10979 00 
1100 DIM an(ö) ‚anitä} „ex 16) ,eniiä},fa| 1370 DATA 68,00,00,00,00,40,C04,88,00, Fr DATA 
(6) 00 
1110 DATA 2AO,LAO,RAI,EAI,&A2,KA2 1380 DATA 00,00,40,E1,88,00,00,00,00,| 1590 DATA 
1120 DATA &70,8E0,&50,4C0,%30,&A0 9 . 40 
11330 DATA AZ RAT, LAT, KAISER RAS 1370 DATA E1,CC,00,00,00,C0,D0,64,C6,| 1500 DATA 
1140 DATA &10,%80,&F0,260, 500,440 cc oo 
1150 DATA 17,6,15,9,2,7 1300 DATA 00,00,40,E0,FC,C7,83,00,00,| 1610 DATA 
11&0 RESTGRE 1110sFOR i=1 TO SıREAD a| 20 Do = 
MÜidaNEXT i 1410 DATA EO,FR,C9,88,00,90,C0,00,04,| 41620 DATA 
1170 FOR i=1 TO &READ anitli)dsNEXT i |c& - 1EF 


Compute mi 





geschrieben. Aus diesem Grund 
ist es unbedingt notwendig, daß 
da Programm nach dem Abtip- 
pen als erstes abgespeichert wird, 
da eventuelle Tippfehler bei ei- 
nem Programmstart zum Syste- 
mabsturz und somit zum Pro- 
grammeverlust führen könnte. 


CC,00,00,00,00,E1,C6,00,00, 
00,40,E£1,88,00,00,00,00,40, 
688,00,00,00,00,40,00,88,00, 
00,00,40,00,88,00,00,00,00, 
00,00,00,00,00,00,00,00,00, 
00,00,00,40,04,49,00,00,00, 
94 ,7C ,EE,00,00,00,40,3C,7C, 
85,00,00,40,36,7C,FC,B3,00, 
D0,74,7C,EC,C5,00,00,D00,E0, 
C9,06,00,00,D0,F0,64,03,C6h, 
00,00,F0,C4,03,05,00,00,D00, 
76,07,06,00,00,00,94,7C,EC, 
00,00,40,36,7C,FO,88,00,00, 
3C,7C,FC,88,00,00,00,74,7C, 
00,00,09,00,40,C04,89,00,00, 
00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,C4,00,00, 
00,00,30,E1,88,00,00,00,00, 
E1,88,00,00,00,00,D0,E1,04, 
00,09,60,F0,7C,03,CC,00,00, 


8440,89 ,,06,00,00,40,B4,40, 
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DATA 
DATA 
DATA 
DATA 
DATA 
para 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
bata 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DaTrA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


88,00,00,40,B4,40,E9,89,00, 
DO,B4,4C,E9,C6,00,00,00,F0, 
C3,CC,00,00,00,D0,E1,C4,00, 
00,00,40,E1 ,88,00,00,00,00, 
E1,89,00,00,00,00,00,04,00, 
00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,F0,00, 
00,00,00,50,50,81,30,82,00, 
B4,30,30,30,69,00,00,B4,34, 
38,69,00,00,B4,34,30,38,69, 
00,B4,34,30,38,69,09,00,B4, 
3C,30,69,00,00,50,30,30, 30, 
00,00,00,B4,03,69,00,00,00, 
50,03,82,82,00,00,50,50,03, 
82,00,00,00,50,30,82,00,00, 
60,00,E1,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00, 
00 ,00,00,90,00,090,00,00,00, 
64,88,00,00,00,00,B4,0C,4C, 
06.00 ,00,84,C4,40,00,00,00, 
48,00,8C0,89,00,00,40,44,06, 
88,00,00,84,84,00,4C,40,00, 
64,84,C4,4C,40,00,00,83,84, 
46,40,00,00,93,84,04,4C,4C, 
00,84 ,84,00,4C0,4C,00,00,40, 
0C,90,88,00,00,40,48,0C,BD, 
60,00,00,84,C4,40,00,00,00, 
64 ,00,40,00,00,00,00,40,C4, 
00,00,00,00,00,00,00,00,00, 
00,20,64,88,00,00,00,00,40, 
99 ,00,00,090,40,00,64,64,BB, 
00,74 ,,68,80,DE,EC,00,00,74, 
BO ,64,EC,00,00,94,68,B0,DC, 
00,00,40,D0,C04,64,88,00,00, 
40,B0,89,00,00,00,40,D0,BO, 
86 ,00,00,74,69,80,D5,ER,00, 
74,36 ,C04 ,FC,EC,00,00,79,68, 
PC ,EC,00,00,40,00,B0,54,BB, 
00,00,90,20,88,00,00,00,00, 
63 ,00,00,00,00,00,00,00,00, 
09,00,00,00,00,00,00,00,00, 
00 ,00,00,00,00,00,00,00,00, 


00,00,00,00,00,590,00,00,00, 


2080 
2070 


DATA 
DAFA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ara 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


00,00 ,B0,F0,00,00,00,00,90, 
70,00,00,00,00,B0,03,70,00, 
00,00,B0,92,00,00,00,00,00, 
30 ,A0,00,00,00,00,50,81,70% 
0 ,00,00,00,B0,A0,00,00,00, 
00,50,00,00,00,00,00,00,00, 
00,00,09,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00, 
00,00,00,10,00,00,00,00,00, 
70,A0,00,00,00,00,50,30,70, 
00,00,00,50,61,92,00,00,00, 
BO,Ch,92,R0,00,00,50,51,[C, 
#0,00,00,50,61,89,69,70,00, 
50,30,08,92,70,00,00,00,F0, 
70,A0,00,00,00,50,30,A0,00, 
00,00,00,F0,00,00,00,00,00, 
00,00 ,00 ,00,00,00,00,00,00, 
60,00 ,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,50, 


00 ,00,,00,00,00,80,70,00,00, 


00,F0,51,72,40,00,00,50,30, 


92,A0,00,00,00,80,06,92,A0, 
00 ,50,63,89,027,70,00,00,B0, 
03,0C9,79,00,00,B0,C5,05,46, 
A0,00,B0,61,89,697,92,R0,00, 
B0,04,92,70,00,00,00,BO,0C3, 
70,00,00,00,50,30,A0,A0,00, 
00,00,F0,00,00,00,00,00,00, 
00,,00,00,00,00,00,00,00,00, 
00 ,00,00,50,00,00,00,00,00, 
BO,FO0,00,00,00,00,50,51,30, 
00,00,50,E0,C05,63,70,00,00, 
&1,66,09,70,00,00,B0,£3,87, 
RG,00,50,61,05,46,92,A0,00, 
61 ,CC,46,035,70,00,00,B0,C3, 
C9#,70,09,00,50,61,89,46,92, 
00,50,61,87,09,72,A0,00,50, 


89,09,70,40,00,B0,63,C0,C3, 


00,00,B0,41,03,70,00,00,00, 


BO,30,R0,00,00,00,00,50,F0, 
00,00,00,00,00,00,00,00,00, 


00,00,00,00,00,00,00,00,00, 


Gompute miß 


Programme 


2490 
00 
2500 
&i 
2510 
AO 
2520 
90 
2530 
Ir 
7540 
90 
2550 
6 
2360 
00 
2570 


DATA R0,00,00,00,00,50,20,70,A0, 


DATA 00,00,80,61,92,70,00,00,50, 
DATA 
DATA 00,00,50,81,C00,92,A0,00,00, 
DATA BO,83,92,90,00,.00,00,B0,83, 
DATA 70,00,00,50,61,00,09,70,00, 
DATA 50,61 ,06,92,R0,00,00,00,B0, 
DATA 30,A0,00,00,00,30,B0,F0,00, 
DATA 00,00,00,50,00,00,00,00,00, 
DATA 00,00,00,00,00,00,00,00,00, 
DATA 00,00,00,00,00,00,00,00,00, 
DATA 00,50 ,00,00,00,00,00,00,B0, 
DATA 00,00,00,00,50,61,30,A0,00, 
50,B0,33,92,A0,00,00,50,61, 


70,00,00,00,00,B0,C3,70,00, 


DATA 
DATA 


DATA 00,00,00,83,92,00,20,00,00, 


DATA 61,92,R0,00,00,00,50,61,70, 


DATA 00,00,00,00,B0,A0,00,00,00, 


DATA 00,50,00,00,00,00,00,00,00, 


DATA 00,00,00,00.00,00,00,00,00, 


DATA 00,00,00,00,00,00,00,00,00, 


DATA 00,02,00,02,41,50,00,02,41, 


DATA 00,00,00,00,10,00,02,88,10, 


DATA 10,00,10,00,00,00,00,00,00, 


SYMBOL AFTER 2544RESTORE 12401 ME 
FOFFIFOR i=&A000 TO &ASCD 


READ a8: POKE i,VALT"E"+aS} 
SOUND 129, ,VALU"EKP+AS) „SINEXT i 
"AASCHINENDATEN LESEN 

DATA 60,34,00,71 ,FE,FF ,CC,4F „95, 
DATA 00,91,FE,01.08, 58,05, 91,FE, 
DATA 1CC,397,93,59,06,91,FE,01 ,C8, 
DATA 02,08,34,07,91,FE,05,28,06, 
DATA 
DATA 7F ,92,3N,00,91,FE,02,28,06, 
DATA 32,00,91,18,07, BF ,32,00,91, 
DATA B1,92,3A,0F,91,FE,03,28,06, 
DATA 32,0F,91,19,0D,AF,32,0F,91, 
DATA F9,93,3R,13,71,FE,01,CB,3A, 
DATA 91,FE,03,28,05,30,32,14,91, 
DATA 91,AF,32,14,91,00, 70,94, 30, 
DATA 91,FE,01,68,03,00,92,2R,0R, 
DATA 05,11,0E,11,0D,32,BC,3A,0B, 


BATR 06,00,0E,00,CD,32,BC,3A,00, 


©3,09,70,00,009,50,61,89,92, | 


32,09,91,18,07,AF,32,09,91, 


55 


56 


programme 


2930 
1 
2960 
oB 
2970 
BB 
2780 
92 
2990 
93 
3000 
22 
30106 


DATA 
DATA 
DATA 
DATA 
DATA 
Data 
para 
para 
DATA 
DATA 
DATA 
DATA 
para 
Data 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dara 
vara 
DATA 
DATA 
DATA 
DATA 


DATA 


SC ,FE,OF,20,02,36,0B,32,0A, 
TSA,0B,71 ,30,FE,O0F,20,02,3£, 
32,0B,91,6D,17,BD,C9,CD,24, 
FE,00,28,10,67,CB,5C,66,D8, 
CB,54,00,E3,92,CB,64, 64,19, 
29,00,91,22,19,91,21,00,A0, 
18,91 ,CD,EE,72,697,568,0D,91, 
32,C8,30,32,0D0,91,69,30,0D, 
FE,54,C8,30,32,00,91 ,07,16, 
26,00,34,19,91,5F ,30,1A,91, 
2D,tD,CD,1D,BT,ED,48,1B,91, 
16,10,1E,07,04,77,03,23,1D, 
F9,E1,6D,26,BC,E5, 15, 20,EF, 
c3,34,054,71,FE,00,C0,3E,FF, 
06,91,5A,00,91,04,04,80,32, 
91,3E,1A,32,08,91,21,00,9F, 
AA,BE,C9,3n,08,91,FE,06,20, 
OF )32,06,91,24,07,91,22,25, 
CD,D3,73,69,36,32,08,91,2A, 
91,22,21,91,21,B4,05,22,23, 
C0,99,93,39,08,91,47, 34,11, 
B8,20,16,24,07,91,427,3A,10, 
OE „OE,8B1,78,38,0£,47 ,3E,12, 
39,09,3E,01,32,06,71,03,44, 
5A,08,98,47,34,16,91,BB,C0, 
07,91,47 ,3A,15,71,0E,0E,Bl, 
D8,37,3E,12,95,D9,36,02,32, 


91,603,44,93,16,00,26,.00,3A, 


91,5F,3A,22,91,4F ,20,1D,CD,. 


BO,ED,4B,23,91,E5,18,06,1E, 


0A,77,03,23,10,20,F9,E1,CD, 


BC,ES,15,20,EF,E1,C9,16,00, 


00,34,25,91,5F 30,26, 91,86F, 
1D0,CD,1R,BE,ES,16,06, 18,02, 
77 ,23,1D,20,FA,E1,CD,26, BC, 


415,20,F0,61,609,3A,11,914FE, 


20,0B,2A,10,91,22,1F ,91,CD, 
74 ,3E ,C6,30,32,11,71, 39,12, 
FE,01,28,14,39, 10,91 ,FE,64, 
07,3E,01,32,12,91,18,18,30, 
10,91,18,12,34,10,71,FE,32, 
07 ,3E,02,32,12,91,1B,04,3D, 


10,91,24,10,71,22,19,91,20, 


DATA 91,22,1B,91,00,EE ,72,ED,SF, 


DATA OA,FE,0A,CC,24,95,20,10,91, 


DATA 04,91 ,CD,08,95,34,03,91,32, 


DATA 91,FE,01,00,2A,10,71,22,1F, 


DATA CD,DE,94,69,3R,16,91,FE,14, 


DATA 0B,24,15,91,22,1F,91,C0,DE, 


DATA 3E,C06,30,32,16,91,34,17,71, 


DATA 01,289,14,39,15,91,FE,64,20, 


BATA 3E,01,32,17,91,18,189,30,32, 


BATA 91,18,12,3A,15,91,FE,32,20, 


DATA 3E,02,32,17,91,18,04,3D,32, 
4 


DATA 91 ,2A,15,91,22,19,71,2A,1D, 


DATA 22,1B,91 ,GD,EE,72,24,15,71, 


DATA 04,91,60,04,95,39,03,91,32, 


DATA 91,FE,01,60,2A,15,93,22,1F, 


DATA CD,DE,94,09,16,00,26,00,3%A, 


DATA 91,57 ,34,20,71,5F,2D,1D,CD, 


DATA BE,ES,16,10,1E,07,AF,77,23, 


DATA 20, FA,E1,CD,26,BE,E5,15,20, 


DATA E1,C9,3A,05,91,37,3A,0E #1, 


DATA C0,3A,04,91,47,30,0D, 1 ,0E, 


DATA 81,98,08,47,3E,10,98,DR,3E, 


DATA 32,03,71,69,3A,00,91,FE,00, 


DATA 3A,11,71,06,46,98,D8,3E,FF, 


DATA 00,91,34,10,91,06,04,00,32, 


DATA 91,36,11,91,06,10,98,32,02,. 


DATA 21,10,9F,CD,AA,BC,C9,3A,02, 


DATA FE,0A,20,08 ‚AF,32,00,91,20, 


DATA 91 ,22,25,91,600,03,73,C09,3D, 


DATA 02,91,20,01,91,22,21, 91,21, 


DATA A5,22,23,91,0D,08,73,3R,02, 


DATA 47,3A,0E,#1,B8,00,39,01,91, 


DATA 3A,0D,91,0E,0E,81,79,08,47, 
3710 
5A 
3720 DATA 
3730 ' 
3740 RESTORE 2800: FOR i=&7200 TO 8957 
7 


DATA 12,98,08,3E,01,32,00,91,6%, 


95,00 


37590 READ as:POKE i ,YALÜ"Y'ra$} 

3750 SOUND 129, VAL C"R"+A$) „SSNEXT i 
770 * 

57806 "ZEICHENSATZ VERRENDERN 

3770 ' 

3800 SYMBENL. AFTER 47: adr=KYOFF-1672 
3810 FÜR adr=ade- TOD &FOFF STEP 8 
3820 POKE adr ‚PEEK(adr}7/2:POKE adr+i, 
PEEK (ad +13 72 

3830 PDKE adr+2,PEEKtladr +2) 7/2:POKE ad 
r+3,PEEKtadr +3) 7/2 

3840 NEXT adr 

sa50 * 

3540 'TITELBILD 


Compubhe mib 


3879 

3899 MODE G:PEN 10: INK 10,1:LOCATE 5, 
B:PRINT"SPACE HAWK"2GBOSUB 3940 " 
3970 FOR i=1 TO SOOrENEXT i 

3900 LOCATE 4,10: PRINT"PRÜGRAMED"IGOS 
UB 3940 

3910 FOR i=1 TO SOO:NEXT i 

3920 LOEATE 6,12:PRINT"AUGUST B&"1608S 
UB 3760 

3930 FOR i=f TB SOO:NEXT i 

3949 LDOLATE 1,14:PRINT”BY OTTFRIED S 
CHMIDT" 

5750 GOSUR 497301 F0OR i=1 TO 245 INK 10, 
24-i1:FOR I=t TO 5SO:NEXT 1,1:60T0 3010 
SP606 FOR i=1 TO 24 INK 10,134F0OR 1-1 T 
0 SOENEXT 1,i 

3970 RETURN 

SPA " 

3770 "SPIEL VORBEREITEN 

2000" 

3010 fa=17:POKE B744E,27 

4020 MODE 6:BORDER irPAPER OG:1INK 0,08 
INK 10,12 

4030 sca0ßs live=irlave1:zaesOrvaverlig 
hot=86 

4040 FOR i=11 TO 14:2INK 1,0rNEXT iaIN 
K 11,far Ink 19,4 

4050 in=11:a=-11b=430:POKE &97283, far 
OKE &7285,fa 


4060 MOVE a,b:DRAWR 160,0, in: DRAHR 32 
„-i&,in 

4070 MOVE 640,5: DRAWR-180,0,in: DRAWR- 
32,-i6,in 

4050 b=b-Z: IF h<=0 THEN GOTO 4110 

49970. .in=in+tlsIF in=15 THEN in=i1l 

4100 G0TO 4050 

23110 POKE &971097,0sPOKE &9710A,12:POKE 

%P10B,11 

4120 FOKE %9100,0rPOKE &3103,0:POKE & 

7106,0:POKE &3113,0:POKE &7116,0 

4130 POKE %F10E,20:POKE &910D,90 

4140 POKE &711D,%870:POKE ZI IE, AO 
4150 PODEE &9112,1:PDKE %7117,2:PDKE & 

7S2E ‚shot 

4150 POKE 
4170 FOKE 
4180 ° 
41790 °"SPIELRELTINE MIT VERSCHIEDENEN 

EFFEKTEN 

4200 

47210 CALL 37200 

4220 IF PEEK (&9108)<>255 AND PEEK (KO 
104)£>0 THEN GOTO 4270 

4250 IF PEEK (&9100)<>2855 AND PEEK(KF 
1007<>0 OR PEEK{EFLIFI=L OR PEEK(HRIL 

8)=1 THEN 5070 4700 

4240 POKE &7103,0r-POKE &H113,01P0OKE & 

7118,0 

425090 IF JDY1O} =G THEN 50TD 4250 

42650 GOTO 4210 

4270 IF PEEK(&9105)=2 THEN GOTO 4330 

4280 POKE &9119,PEEK(RFLIOITPÜKE Il 

A,FEEK(&F1113 

4290 GOSUB 4430 

4300 x=INT {RND#50) +1: POKE EI110,A9+R 
4310 POKE #9111,278 

4329 GOTG 4370 

4330 POKE &711%,PEEK(KF11SI2POKE Br1l 

A,PEEKt&FI16) 

4340 GOSUB 4530 

4350 x=INTIRND#50) +11 POKE KI115,A9+4 

4550 POKE 49116,198 

4570 st=ec+10+waverzaeszaetls IF zae=1 

5 THEN zae=0:60170 4390 

4380 GDTO 4210 

4370 wave=swavetislevslev+ir IF lev»7 T 

HEN lev=1 

44309 shot=shot-Sr IF chat<40 THEN shot 
=40 

4410 POKE &9711D,ani tlew):POkE EI 1E,m 

niiev) 

3420 POKE &7285,faliev}:POKE &9205,fa 
tlev} 

4430° POKE &IFH1F ,FEEKIKFLLOISPOKE KFLZ 
O,PEEK(#FI11}:CALL %F4DE 

4430 PÜKE &9I1iF ,PEEK(&F11SI : POKE 2912 


%7110,70:POKE 39115,70 
KFL11,1F0:POKE %9116,198 


1186 


11/86 


J,PEEKISILISISCÄLL &74DE 

4450 POKE %7119,PEEK1&710D) ePÜKE 4P11 

A,PEEK{RFLOE) 

4460 POKE KF11B,0:POKE BrI1C,&AO 

4370 SOUND 129,50,30,15,1150UND 1,47, 

20,15,1 

4450 SDUND 1,50,30,15,1350UND 1,80,80 

„15,1 

4490 PDKE &7305,17 

4500 FOR i=2Z0 TO 19B8:POKE KI11A,itCAL 

L &I2EE 

4510 SCUND 130,300-1 ,5,15,1,11NEXT # 

4520 PÜKE &9120, 198: FOKE LF11F „PEEKIE 

B1OD) CALL KFADE 

4530 POKE #7305, 16: POKE &9100,01POKE 

27108 ,O:POKE &F7148,0:POKE 49113,0 

4540 FOR i=1 TO 24:LOCATE 7,1:PRINF 8 

TRINGSCB," "IzINEXT i 

4550 PEN 4: LOCATE B,12: PRINT"POINTS"E 

LOCATE 8,13:PRINT se 

4560 FOR i=1 TO 1000:NEXT L+LOCATE 68, 

12:PRINT" "ILGCATE 9,133 PRINT" 
Li} 


4570 PEN 97LCCATE B,12:PRINT"’LIVES"IL 

OCATE 9,13: PRINT live 

4580 FOR i=4 TO 1000:NEXT isLOCATE 8, 

12:PRINT" "LLOCATE 9,133 PRINT" 
a 


4570 PEN 9:LOCATE 9, 121PRINT"WAVE"IIO 

ECATE 9,13: PRINT wave 

465909 FOR i=1 TD 1000rNEXT 31:L0CATE B, 
IZ:PRINT" '"GLOEATE PS: PRINT" 
#619 GOTO 4156 

4426 ° EXPLOSION 

4530 POKE %9106,05expl=1:50UND 129,0, 
&0,15,1,0,20 

4440 IF expl=7 THEN SOTO 4580 

4650 POKE BI1IB,exltiexpl}rPükE KFLIIE, 
ex {expi} 

46650 EALL KED19ECALL KIZEESCALL %BD17 
sexplzexplti 

4670 EALL %BDIF:GOTO 4640 

4550 FOKE BTIIF,PEEKIKFILNGPOKE 8712 

O,PEEKITERFLIAD 

4490 EALL &IADE:CALL %BD17:RETURN 

4700 FOKE &97100,0:POKE #7103,0:POKE & 

9118,01PDKE &9113,0 

#710 POKE &7119,PEEK(KPLODIAPÜKE Kr 

R,PEEK{&F10E) 

4720 GOESUB 4530rzae=0:live=live-irIF 
iive=D THEN 47409 

4730 B0TO 4540 

4740 FOR i=1 TO 24:L0CATE 7,i:PRINT 5 

TRINGSIE," "Iy=NEXT i 

4750 PEN 10:99="5" 1 x2=83 y=11: BOSUB 497 

[4] 

A760 gF="Arıy=Fıys1l11l:50SUB 4870 

ATFO gs="M"sn=i0:y=11:GDSUB 4970 

4780 gf="E"sgzlley=1l:60EUR 4890 

4770 gf="O"1x=Fry=12:50SUB 4890 

4800 ge="Ytay=1dıy=12:6050B 4890 

4810 gf="E"sgellsy#z1l2:G0S0UB 48970 

4820 g$="R":x=12:y=12:G05UB 489970 

4830 FOR i=1 T0 FOR 1=1 TO 26: INK 1 

0,1:5QUND 132,1*r1,30,10-1,2,1:NEKT 1, 
i 

4849 PEN 1rMOBE 1I:IF schhsc THEN hsc= 
SC:LOCATE 10,55PRINT"NEW HIGH SCORE" 
4850 LOCATE 8,71 PRINT"YOUR SCORE 15"3 
sc 

3850 LOCATE 8,10r:PRINT"HIGH SCORE 15” 
ıhse 

4870 GOSUB 4930 

4880 FER i=1 TO Z42INK 1,24-i:F0OR 1-1 
TO SO:NEXT 1,313 1NK 1,9:60T0 4020 

4690 x1=24:22=25 

4900 LOLATE #,x2ıPRINT" "ILOCATE nat 
:PRINT g* 

49710 zimkl-1ıxrZ=erZ-ir IF niey THEN RET 
URN 

4720 SDUND 132,10+421,20,15,118010 490 

© 

4930 j=1:RESTORE 5029 

4940 ENY 5,=11,5000IENV 4,3,1,1,15,-1 
„IsENT —3,1,1,8,12-1,81ENT -4,4,144,4 


Programme _ 


„1,4 3099- 3100: 50684 
4750 REAB arIF a=-t THEN RESTORE 4950 3110- 3120: 51397 
:G0TO 4950 3130- 31401 50379 
4940 IF a<>O THEN SOUND 1365,084,109,1 F1S9- 3160: 30347 
5,353 3170- 3180: 50780 
4970 SCUND 4,51(1)#2,16,12,4,3 3190- 3206: 1636 
4780 SOUND 1,u1i3,16,12,4,411=1+1 1 1 F 3210- 32201 499197 
i=17 THEN i=1 3230- 32401 ©2331 
4990 WHILE SQ11)>127:WEND 3250-, 32601 519770 
5000 IF JOYtO) AND 14 THEN RETURN 3270- 3280: 32852 
5010 GOTO 4750 3290- 33001 53462 
5020 DATA &0,71,47,71,45,71,60,71,80, 3310” 3320: 531952 
71,0,50,71,0,0,0,60,71,47,71,85471,50 3330- 3340: 50315 
»71,60,71,0,60,71 3350- 3560: 49944 
5630 BBTA 0,0,0,47,60,40,50,36,60,47, 3370- 3380: 53055 
60,47 ,60,0,47 ,60,0,0,0,71,89,60,89,53 3390- 34001 50217 
,89,71,89,71 ‚89,0,71,87 3410- 34201 51297 
5040 DATA 0,0,0,60,71,60,71,47,71,87, 3430- 3440: 53002 
71,60,71,680,71,47,71,47, 71 3450- 74601 50114 
5050 DATA 40,47,40,47,32,47 32,47 ,20, 3470- 343903 49716 
A730 ,47 32,47 232,47 3490- 35091 51083 
5060 DATA —1 35109- 335201 50414 
5070 DATA 478,478,479,478,568 348,568 3530- 35401 52650 
968 3550- 3560: 52381 
5050 DATA 638,638,638,439,5643,5648 560 3370- 3590: 52071 
„sAB 3970- 36001 532051 
5090 BIM s{1&) ı RESTORE 50701F0R i=i T 3619- 34205 50451 
2 1& 3530- 35401 51118 
5100 READ sti}:NEXT 3s+RETURN I630- 560: 51442 
3570- 3680: 50274 
CHEEK Via PRLEFSUMMENs 177G- 1980: 50585 3699- 37004 51872 
1970- 20003 51038 3710- 37204 26072 
ZEILENNR.ı SUMMEN 2010- 20202 46957 3736- 3740: 22843 
1- 2: 55958 2030- 2040: 46304 37507 57601 47826 
3770- 3780: 22097 

3- 4: 45030 2050- 20503 A724& 
5-6: 31766 2070- 20801 48063 37707 3809: 24951 
7- 8: 12179 2070- 2100: 47534 3B10- 3820: 67427 
3- 1000: 778631 =110- 21203 44418 3930- 38403 40295 
1010- 1020: 33827 2130- 21403 46304 3850- 3B&0r 5373 
1030- 10403 36399 Z150- 21601 47227 =2870- 3220: 48389 
1050- 1060: 67981 2170- 21901 49273 3870- 39001 36910 
10790- 1080: 22595 2190- 22001 49997 3919- 3929: 35485 
1090- 1100: 1211 2210- 27201 47332 3936- 3940: 454504 
1130- 1120: 31650 2330- 2740 44394 3950- 39403 15370 
1130- 1140: 31782 2250- 22603 47500 3970- 3980: 506 
1150- 1140: 54314 27270- 272801 49643 3770- 4000: 14508 
i1170- 1180: 75367 2290- 23001 50278 4010- 46203 21774 
11970- 1200: 75204 2310- 23201 39584 4030- 4040: 21335 
1210- 1220: 13734 7350- 23401 37497 4050- A060ı 7995% 
17230- 1240: 23857 2350- 2360: 46444 4070- 40501 85147 
1250- 12601 49482 2370- 23804 49143 4090- 4100: 33552 
1270- 1280: 70201 2390- 2400; 50155 #110- 5120: 57761 
1290- 13001 50139 2410- 2470: 530427 -4130- #130: 20108 
1310- 1320: 50283 2430- 2440: 51354 4150- 41409: 40419 
1330- 1340: 47250 2450- 246401 48179 4170- 4150: 12462 
1350- 13601 46716 2470- 2480: 4a534 4190- 42001 59516 
1370- 1380: 485109 2490- 7500: 484164 42109- 4220ı 45576 
1390- 1400: 51755 2510-.2520: 49833 4230- 42401 204997 
1410- 14203. 51065 7530- 2540: 50048 4250 4260: 13072 
1430- 1440: 489129 DES0- 35bdı Audi 42709- 4201 42433 
1450- 1460: 344689 2570- 7580: 454344 42970- #300: A0171 
1470- 146014 50275 2590- 2600: &7560 3310- 4320: 3497 
1470- 1500: 514717 Da10- 2620: 49194 A330- 4340: 27076 
1510- 1520: 51595 2630- 26401 48282 3350- 4360: 42959 
1530- 15403 51973 2650- 26600 47h 4370- 3380: 52549 
1550- 1560: 50310 2670- 2690: 46414 4390- 4400: 32287 
1570- 1590: 454971 2690- 27001 47399 A4A410- 4420: 116008 
1590- 1400: 48954 2Z710- 2720: 37273 4430—- 4440, 85574 
1610- 16207 52021 2730- 2780: 39603 4450- 4460: 35673 
1&830- 16540: 51307 P750- 770: ATEZa 4470- 44B0: 33052 
1650- 1460: 48798 2770- 2780: 18040 AA70- 45003 40774 
1570- 1680: 47111 2790- 28003 27778 4510- 45201 55125 
1670- 17001 49104 2B10- 28204 54409 4550- 45403 99356 
1710- 1720: 50514 2030- 28401 31943 4550- 45603 75644 
1730- 17401 51012 2950- 28601 52324 4570- 45580: 99133 
1750- 1760: A7F90 2970- 28804 52440 4590- A&00ı 94497 
1779- 1780: 47778 2890- 2900: 50903 A810- 45208 6573 
1790- 1800: 44504 2510- 2926: 51445 4430- 44,ä0ı A9FE 
1810- 1970: 48987 2920- 2240: 52452 4650- 465509: 61151 
1830- 1840: 50504 2950- 29801 51752 AGO Ab80: 29203 
1850- 1860: 51031 2770- 2980ı 54482 4670- 47001 34720 
1870- 1930: 50544 2770- 30060: 50524 4710 4720: 70964 
1870- 1900: 48722 3010- 30201 53547 4730- 4780: 565630 
1910- 1920: 47467 3030- 30409: 51710 4750- A760: 64342 
1930- 19409: 50741 3050- 3050: 52311 4770- 4780: 545722 
1950- 1960: 51297 3070- 30801 53597 4770- 48004 55723 


CSompute mir 
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4B10- 4870: 56637 3010- 5020: 39723 

4530- 4840: 63444 5030- 5090: 13708 

ABSO- 48601 57923 5050- 5080: 61035 

4970- 48801 59065 5070- 5080: SA2B0 

4870- 49001 55357 5090- 5109: 47543 

A710- 49201 38639 | =--------- 
4930- 49404 48015 GESAMTCHECKSUMME: 28566 
4950- 4960: 64074 

4970- 4980: 62095 

4990- 5000: 19384 





* Kleinanzeigen * 





Commodore*C-16/116*C-16/116** 

Speichererweiterung 64 KByte Bau- 
satz mit allen benötigten Teiten * 
Schalter für 16 KByte -64 KByte um- 
zuschalten und ausführlicher 
Bauanleitung für nur 49,59 DM (incl. 
Mwst} per Nachnahme. Frank 


Schmitz, Kurzer Weg 1, 5206 Neun- 
kirchen 2, Tel.: 02247/8111 ab 18. Uhr 


Floppy 1541 - Neuwertig (bis 

07.12.86 Garantie!) Für nur DM 

400,- abzugeben!! Gerhard Fi- 

scher, Heinrichgasse 7, 7910 Neu- 
m 


Verk. 15 VC-20 Module zum Preis pro 
Modul: 50,-- DM. Spitzenspielei 
Rene Cioßes, Hohenkirchner Sir. 10, 
3501 Espenau 


WAW. Elektronik - Autorisierter 
Commodore Service, Tegeler Str. 2, 
1060 Berlin 28, Tel.: 030/404 3331 - 
Mo-Fr 10-18, Commödare Compu- 
tar, Zubehör, Ersatzteile: C-16 64 K- 
RAM-Erweiterung 69,--; Drucker 
CPA B0X 798,--; Prologic-Dos 
298,--; Disketten ab 13,95; Amiga 
Hard-+ Software: Speichererw. 
198,-—-; Div. Softw. 


*Hallo! Original „FREEZE FRAME" - 
Das Super-Kopiermadul Tür C-54, 
CEM 128/CBM 128D: Tota-Backupo. 
File-Copys von 99,99 aller Softwa- 
re! - Kinderieichte Menö-Steue- 
rung. - Viele Tests (6der etc.) - 
Neueste Version Floppy-Speeder- 
Vertrögl. - Gleich bastellen: (Nur 
schlappe 115,-- Vorl, NN + 3,50) 
Bei: *Astro, Pf, 1330, 3502 Vellmar“, 











Verkaufe G-116 mit Dataseite/Joy- 
stick/Netzteil u, Bücher/ca. 30 
Spiele zb. Wintergames, Format 1, 
Legionär, auch einzeln abzugeben. 
Preis zusammen 250 DM. 

Tel: 08834/54510 


*Das ist das Letzte f, den 64er* Orig. 
„The Final Cartridge“: Superbetr.sy- 
stem f.d. Userport. Speeder, Moni- 
tor, Freezer, Tools. Das absolute 
Muß-Modull! - Durch Direkt-Import 
jetzt nur noch 125 DM (Vorkasse, 
NN + 3m50) — Achtet auf unsere An- 
gebote: Jeizt und demnächst 
"ASTRO", Pf. 1330, 3502 Velimar“* 








Verkaufe Gommodore-PG 1280 
{noch neuwertig) mit Drucker-Inter- 
face (Gentrorics-Schnittstelle). 


: Reisenzein, Wiiheim, A-9772 Del- 


lach/Drau 129, Tel.: 04714/246 


C-16 u. C-116 je mit Dataseite u. Ba- 
sic-K., Textverarb, Dateiverwaltung 
u. Spieten für je DM 150,- zu verkauf. 
A. Lummerich, Tel: 05206/5052 
nach 18.00 Uhr . 





"Jaadasitaunichaberheftig!!* Das 
Super-Spar-Modulpaket für den 
Commodore-Freak! - Supercopy- 
modul „FREEZE-FRAME* und Mo- 
dulbetriebssystem „The Final Car- 
tridge" - 2 Module zusammen zum 
„NICHT-ZU-GLAUBEN-PREIS": nur 
230,- DM (Vork. od. NN+350) - 
gleich bestellen - Vergleicht doch 
mal! "ASTRO, Postfach 1330, 3502 
Vellmar** 





XXxxX Zu verschenken! xxxxx 
Habe ich leider nichts, aber C-64 + 
1541 + Abdeckh. + Diskarchi + 10 Di. 
m. Top-Games umsonst dazu billig 
anzugeben - VB 780,- DM 

Tel.: 0809571561 


C-t16 + 64K + Schreibmaschinen- 
tastatur incl. 10-erBlock + Datasette 
tür 250 DM - Tel.: 07071752305 


*Eiikuckedaah: Der 64er lernt se- 
hen!!  MFB-Super-Video-Digitizer 
„VIDEO 000°. (2, 3, 4 fbg./graustu- 
fen), 384x288 Bildpunkte {h, Digi- 
Zeit: 0,02 Sek./Bild. Einfachste Be- 
dienung!- Interface u. Software zus. 
nur 250 DM {Vork. 0. NN:+3,50}) - 
Jetzt aber gleich bestellen bei ... 

"ASTRO, Pf. 1330, 3502 Vellmar"* 


“Achtung'Commodore*Achtung* 
Verkaufe MPS 801 leicht repatatur- 
bedürftigt + 100 Blait Papier - Preis: 
vB - Eilt 

"Commodore 16/116 Plus 4* 
Programme: Kiondike, codial, Mr. 
Muesli, Boerse 1, Kassette nur 
&,-- DMIN Auch Listings! 

Tel.: 084 32/1258 ab 17.00 Uhr 
“Achtung'Commodore*Achtung” 


Zu wenig Zeit dafür, deshalb G-16 
billig zu verkaufen! Ca. 5 Monate alt 
mit 64K-Speichererweiterung, dazu 
Datasette, Staubschutzhaube, Joy- 
stick-Adapter, Basic-Lernkurs {Kas- 
sette + Buch), diverse Spiele - alles 
Originalverpackt für sage und 
schreibe DM 150,--f!! - Wilfried 
Steinhof, Breymamnıstr. 11, 3400 
Göttingen, Tel.: 0551/76868 ab 18h 





” 5-16 & 116 & PLUS4 - Club ** 
Wer möchte einsteigen? Info gratis 
bei: Torben Soffa, Äsperheide 43, 
4902 Bad Salzuflen 5 





anna, 


Funkamateur sucht dringend Kon- 
taktzu Funkamateuren, die den C-16 
benutzen. Bin interessiert an Erfah- 
rungsaustausch u. Programmen 
(Ritty, GW, Mailbox, Ecc.} Bitte mel- 
det Euch. Bin für jeden Tip sehr 
dankbar (auch C-116 + Plus4-Bo- 
nutzer). ö 

Karl Ungericht, VYägelebicht 26 
A-5020 Innsbruck 


Vereinsamter CPC-Freak sucht 
Gleichgesiante{n)in München. Bitte 
schreibt an: PR Grubmair, Milberts- 
hofener Str. 30, 8000 München 40 


*"Dum-Dum-Dideldum... - Mensch, 
ist der 64er musikalisch: (Orig. SFX) 
Music-Maker (Disk} 89,50; Sound- 
Sampler (Modul+Disk) 239,-- DM: 
Sound-Expander (COX 7-Sound 
oder 64er wird zum Super-Synthie 
(Modui+Disk) 349,-- DM; gleich 
bestellen! (Vork_oderNN +3,50 DM) 
“ASTRO, Pf. 133, 3502 Vellmar** 


RD (GIRO IS 15 

60671 Byte frei, nur67,-- DM. User- 
Part Modul nur 45,-- DM. Dazu Soft- 
ware für Centronics. RS-232- 
Schnittstelle. Kassetten-Kopiermo- 
dul. Infovon Fa. WilliKeBler, -elektro- 
nik-, Ruprechtstr. 14, 6736 Edes- 
heim, Tel. 06323 / 7114 {nach 16 h) 


*BrennBrent, Britzel: Epromhits® 
Golitath tm-byte-Eprom-Karte 
{REX} 134,50 DM * 64K-Eprommer, 
passend dazu: Brennt 1 KB in 1 
Sek.(N, liest Steckmodute ein! Nur 
275 DM. - 256K-Epromkarte: 90 DM 
- passender 32K-Eprommer + Text- 
tool + Gehäuse 138 DMi (Alles Vor- 
kasse 0. NN + 3,50 DM) - gleich be- 
stelien: *ASTRO, Postfach 1330, 
3502 Vellmar"* 


C-16 Speichererweiterung, Schalt- 
plan = DM 5,--; je Speicherelement 
= DM 18,--; je Fassung = DM 0,80; 
Speichererweiterung komp!. einge- 
baut DM 60,--. Computer ohne Zu- 
behör einschicken. Alle Teile und 
Arbeiten nur gegen Vorkasse. Kein 
Porto! P Schultz, Steenmoor 8, 
2000 Hamburg 70 - Bausatz kompl. 
DM 45,--! . 


* TOP C-16 Hardware *"" 
Verkaufe G-16 (64 KByte) inci.: Data- 
sette, Joystick, Handbuch, Basic- 
lernkassette, Turbotape, Spiele 
(Spectipede, Space, Invader, Hero, 
u.a), Anwenderprogramme, Zeit- 
schriften (Listings) und Gomputer 
mit Abollt Preis: 450 DM 

Tel.: 0591/75992 Mo-Fr: 17-21 Uhr 


Verkaufe VC20 u. viel Zubehör: z.B. 
Erweiterungen, Modulbox, Spiel- 
module usw. Alles auch einzein. 
Liste anfordern bei: R. Düren, Chri- 
stoporusweg 12, 3400 Göttingen 


Verkaufe C-116-Datasette (Garantie 
bis 4.1.87), Handbuch, Basiclern- 
kass. u. 16 Spiele fürnuri7 0 DM.Bei: 
Christoph Furtkamp, 

Tel: 0285172511 


Achtung-Commodore 16-Achtung 
Verkaufe neuen Joystick für Com- 
modare 16 und 4 Spieiecassetten. 
Tel.: 0234/7497396 





Gompute mib 





An VG-20 und Schneider Besitzer! 
Computer-Chub sucht Mitglieder. In- 
tormationen gegen Rückporto bei: 
A. Meier, Goethering 93c, 

8504 Stein (Computertypangeben!) 





".* 5-16/116/Plus4**" 

Suche und Tausche Software {auch 
64k). Suche auch Datasette 1551 
Helmut Plank, Öhtermühle 21, 
A-3362 Öhling / Österreich 


C-16 Anfänger - Suche Kontakte zu 
C-16 Profis, die mir etwas beibrin- 
gen, Tips geben und Prögr. für Spie- 
le schicken: Oliver Kehle, 


Sulzstr. 23, 7401 Pliezhausen 


* VC-20 * VG-20 * VC-20 * VO-20 * 
Suche billige 32K-Erweiterung 
(Dringend. Tausche außerdem 
Software für VG-20. Schickt bitte 
Eure Listen oder Angebote an: 
Andreas Wolf, Kornbeckstr 13, 
7440 Nürtingen 5 

* VC-20 * VC-20 * VC-20 * VO-20 * 


C-116 - Neu mit Speichererweite- 
rung, mit Datasette neu DM 198,-—, 
Vizawrite Modus C-54 DM 150,—-, Vi- 
zawrite Classic mit Modul 128, Viza- 
stra mit Modul für GC-128, Commodo- 
re ©-64 DM 30,--, Brother Typen- 
raddrucker HR-10 mit Centkonic DM 
730,--, Magic Desk Textmodul DM 
49,-—. - WOBA - Tel: 040/861698 


- C-16 - zu verkaufen - C-16 - 

+ Plotter 1520 + Datasette + Joy + 
Topgames + Bücher + Hauben + 
evil. 64K: Der Preis? VB 250: bitte 
schnell! 0 89/84 77 34 - Matthias - 


+ Hardware G-16/116 Hardware + 


Floppy 1551 379,-- 
Commodre Plus 4 239,-- 
16K-Bam-Erweiterung 179, 
GAK-Ram-Erweilerung 109,-—- 
Farbmonitor Philips 549,-- 
Drucker Star Gemini 578,-- 


Preise Stand 09/86 + Versand 24 
Stunden Bestellsenice + Comp. 
Service, Pf. 1304, 7913 Senden 


+ Hardware C-64/C-178 + 


C-128 698,-- 
C-128 D 1398,-- 
Floppy 1571 698,—- 
Floppy 1570 54B,-- 
Gitizen 120 D 648,—- 
Abdeckhauve C-128 hart 16,90 


Bestellservice: Tel. . 073076230, 
Softwareliste auf Anfrage, Comp. 
Service, Pf, 1304, 7913 Senden 


+++++ Commodore Zubehör +++ 


++ 

Quickshot Il 15,90 
Queikshot IV 19,90 
Competition Pro u 
Joystickadapter für C-16 9,90 
Datencassetten C-15 10St. 15,90 
Abdeckhaube C-64/C-16 9,-- 
Abdeckhaube Datasette 6,90 
Disketten 2D 15,90 
Comp.Sewice, Postfach 1304, 


7913 Senden, Tel.:07307/6230 












11786 


Das erste und einzige 
SOFTWARE-MAGAZIN 


Die aktuelle Ausgabe gibt’s jetzt überall 








f greich 
‚Information ° 
des 


Software-Marktes 


@® 100 Seiten Programme im Test 

© der Software-Markt auf einen Blick 

® speziell gesuchte Software kann direkt 
beim Hersteller bestellt werden 

® für alle Anwender von Heimcomputern 


kleinanzeigen 
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+++ C-18/116+4 Software +++ 


Bomb Jack 24,90 
Frank Brunos Boxing 24,90 
Yie are Kung Fu 24,90 
Winter Olympiade 24,90 
Superhits (6 Progr.) 27,90 
Projekt Nova 22,90 
European Games {4 Progr) 22,90 


24 Str, Bestellservice 073076230 
Comp.Service, Postfach 1304, 7913 
Senden 

C-16/116/+4 Anwenderprogramme 


Turpo Tape 15.90 
Gaphic Designer 15,90 
Paint Box 19,90 
Music Master 22,90 
Turbo Text 22,90 
Turbo Base 22,90 
0-16 Utilities 27,90 


Preise Stand 09:86 zzgl. Versand - 
Comp.Service, Postfach 1304, 7913 
Senden 


Verkaufe C-116 mit Datasette + Joy- 


stick + ca. 20 Spiele z.B. TuttiFruti, 
Vox usw. + Literatur für DM 180,——- 
ohne Cass., DM 220,-- mit Gasset- 
tor. Extra-Angehot: Verkaufe Spie- 
te: Flugsimulator Zero 15 DM 20,——, 
8MX Racers DM 5,-- (Originale). 

D. Wisssner, Griesäckersir. 18, 7803 
Gundelfingen, Tel.: 0769582331 


5-16/116 - Suche einfache und 
schnetle Hardcopy-Routine als Un- 
terprogr. für Basic-FProgramm mit 
ausführlicher Anleitung {Citizen 120 
DJ) - Max Fuchs, Panaramasir. B, 
7214 Zimmern 4 


C-16/116 Programmpaket 1 Extra! 

1) Sheriock’s Problem {Strateg.) 

2) Horse (Actionspiel) 

3) Catch tina Mouse (Actionspiel} 
4) Arrow Shooting (Bogenschießen) 
5) Warship (Schiffeversenken) 
Preis: 8,90 DM + 1,10 DM Porto, Lie- 
ferung nur gegen Vorkasse! 
MULISOFT: Hubert Mühlbacher, 


Plattenberg 3, 8221 Waging 


VC-64 Originalprogramme auf Disk 
Programmsorte, Termine, Warenbe- 
stand, Super 8 Datei, Tauschpart- 
ner, Das Rifi, Telefon-Datei je 
24,80 DM; Rechnung/Liefersch./ 
Etikett 29,80 DM; Spider Hunt, 
Nachtangriff, Kaufmann, Disk-Eti- 
ketten je 14,80 DM; Astray in Jungle 
14,80 DM; Schatzsuche (Abent.- 
Adv.) 19,80 DM. GLDI-Soft, Postfach 
1132, 2190 Cuxhaven 12 


Commodore C-16 ** 116 ** plus 4 
Hardcopy - Hardcopy - Hardcopy 
druckt ihre Bildschirmgrafik in max. 
60 Sek. auf ca. DINA4 Größe aus. 
Für 16K und 64K Version geeignet. 
Als Kassette oder Diskette für nur 19 
DM + Porto per NN. bei: Frank 
Schmitz, Kurzer Weg 1, 5206 Neun- 
kirchen 2, Tel.: 6224778111 


*Thomas-Soft Tsamadov 4 Athina 
Greece Games Utilities C64 + 28 auf 
Disk und Tape write + and westen- 


. dyanourlist with programms, je 


Prog. 14 DM, Turbo-Esrit Ghost'n 
Goblins Paper-Boy Alter Eco Road 
Runer Printshop Neewsroom und 
und und - Thomas Mouzakitie Pfitz- 
nerweg #, 5650 Solingen 


C-16, C-116 Supsrspiele! 

info gegen Rückporto bei Hannes 
Kaltenbach, Prielmayerstr. 16, 7990 
Friedrichshafen 1 


©-16 C-116-Plus 4 - Sucher Siegute 
Programme. Ich habe sie! Kamelrei- 
| ten/Spielaufomat/Dallas/Roulette/ 
Lebenserwartung u. Porno auf Kas- 
settg u, Diskette. Auf Kassette = 
25,-- DM oder Diskette = 30,--DM, 
6 Prg., Super IG-TestnurPlusdoder 
64K-Erweiterung 10,-—- DM + 2,—— 
DM Porto. Hasen, 2800 Bremen 21, 
Ritterhuderstr. 55 


* Original Elite plus V1.0 ** 
Fantastische neue Programmier- 
sprache für strukturieries Program- 
mieren auf Ihrem PLUS/4/C-16, C- 
tiß, (64 KB) - 28,-- DM mit ausf. 
Handbuch, incl. Porot & Verp. - Info 
gegen Rp. bei TEDsoft, Bohlinger- 
straße 2, 7700 Singen 


Verkaufe Programme für G-16/116, 
Snake u. Racer-Geschickspiele, 
Wortraten u. Hubschraubersimulat. 
Kniffei u. Flugsimulator. Pro Cass. = 
2 Spiele = DM 8,—- 

Videothek, Dateiverw, Zeich- 
nungspr. u. Haushalt = 4 Program- 
me, DM 15,—— auf Cass. - NurNach- 
nahme! Ralf Steinhauer, Damasch- 
kestr, 42, 56230 Remscheid 


“ C-16/116 ** Software f. den Kauf- 
mann, Systemsoftware. Info geg. 
Freiumschlag {80 Pf} bei A. Lämme- 
ruahl, Saarstr. 85, 4100 Duisburg 17, 
Tel.: 02136/13394 


+ C-16/116/+4 Hardware/Zubehör+ 


Mortitor Philips 8500 548,-—- 
Plus4 198,-— 
Floppy 1551 379,—— 
Joystickadapter 9,90 
Abdeckhauben ab 6,909 
Casseiten C15 10 Stck. 15,90 
16K-Ram-Erweiterung 79,-- 


Angebote auch für andere Systeme. 
Comp. Service, Postfach 13.04, 7913 
Senden 


Achtung! Achtung! -T1-99/4a Besit- 
zer sucht Joystick-Adapter. Zahle 
gut! suche auch Tl-Exented-Basic. 
Dringend! Auch spiele gesucht! 
Schreibt mir bitte! Wichtig!!! 

Jörn Kühlborn, Am Koppstück 2 b, 
4630 Bochum 7 





Verkaufe die C-16 Games Hamurahi, _ 


Turbo-Racer, Rom, Minor-Jumper, 
SDI, Jumpifürid,-- DM. Briefe mit 10 
Mark-Schein an Thorsten Laske, Am 
Wasserwerk 11, 4532 Mettingen 


C-161 Verkaufe meine Original-Kas- 
setten zum halben Preis. Auch ganz 
neue z.B. Monty on Run, Bomb Jack, 
Wimbledon usw. Basic Programme 
1,50 DM pro Stek.: Tel.: 02153/8116 


- Grafikprogramme - 

für C-64 mil Simons’ Basic und G-16 
Grafik-Demos mit ausführi, Erklä- 
rungen und- vielfältigen Anwen- 
dungsbeispielen. Außerdem tolle 
Graliken verschiedener Art w.v.m.! 
Auch auf Disk! infos gegen Rück- 
porto! Info mit Cassette: 3,80 DM 
{Briefm.). B. Jakob, Kehl 4, 8832 
Weißenburg 1 


Punktgetreue Grafikhardcopy auf 7- 
Nadefdruckern für +4 u. erw, C-16. 
Ihre Computergrafik wird mit 


200x320 Punkten ausgedrucktund ° 


auf ca. DINA4 vergrößert. Auf Disc 
nur DM 22,70. info gegen DM 2,--in 
Briefm. von H. Spackner, Rabbolt- 
straße 5, 4600 Dortmund 13 


Nebenverdienst für CPC-Anwender 
Das beste Biorhyihmusprogramm 
plus Partnerschaftsanalyse. Bei 


- Druckerbetr. ca. BDINA4 Seiten pro 


Monat + Grafik, sehr ausführliche 
Hinweise und informationen für je- 
den Tag. Ein TOP-Softwarepaket 
daß beraits erfolgreich auf kleinen 
Messen und Märkten Anwendung 
fand. Progr. (70%) Disk. DM 40,--, 
Kass. DM 30,-—. Raiph Hilterscheid, 
Lufwig-Rosenberg-Ring 47, 2050 


Hamburg-80, Tei.: 04077211974 


* Astreint * Orig. „Freeze Frame“* 
Das $upermodul für C-64 a. Eng- 
land! (Test: 64er/9,5. 164 u. ASM Nr. 
6) Kopiert 99,99% aller Software, 
menügesteuert auf Tape o. Disk! Pg- 
me. laufen dann auch 0. Modul, Dir.- 
Import: schlappe 119,-- DM! Neu: 
läuft auch m. Fi.-Speeder! Sof. be- 
stellen: NN + 3,50 o. Vork. "ASTRO, 


Postfach 1330, 3502 Vellmar’ 


"OHOOFTHE FINAL CARTRIDGEIN" 
Modui-Betr.-System tür C-64: Flop- 
py u. Tape-Turbo, Centr.-Interface, 
Hardcopies, +24K-RAM f. Basic, 
Toolkit, Funktionstasten, Reset, 
Masch.-Monitor, Copy-Modul, und 
„. und... * Bir-Import, alberne 125 
DM! Sof. bestellen: NN + 3,50 0d. 
Vork. Weitere Hammer-Angebote 
folgen. "ASTRO, Postfach 1336, 
3562 Yellmar‘* 


BES FOR CPC * BES FOR CPC 

Ich biete die neueste Supersoftware 
zu Spitzenpreisen! Liste anfordern! 
Lutz Beyert * EDV-Serwvice, Pf, 1159, 
4030 Ratingen 1 (Auch für G-16, 
©- 64/128 u.a. gegen 1,10 DM 
Rückporto.} 


C-16/116 Zeicher- u. Grafikpro- 
gramme für die 16K und 63K Version. 
Zeichenprogramme für technische 
Zeichnungen. CAD Basissystem. 
into gegen Porto bei: M. Rätzel, Ul- 
venbergstir. 6, D-56100 Darmstadt 13 


C-16/Plus 4 orig. Programme zum 
halben Neupreis zu verk.: Winter 
Olympics, Flight Sim. 015, Kingsoft 
Pius Paket i$, Olypiad, Turbo Tape, 
C-64er SH. 3/86. Tausche auch: 
Tel.: 09317/44660 


Pius 4 Spitzenprogramme gesucht, 
mögl. Disk, Tausche auch. Ange- 
bote bitte an Lutz Eiding, Burkarder 
Straße 16, 8700 Würzburg. 

Te1.: 0931/ 44660 


Verkaufe/Tausche Software für 
Commodore G-64; Kassetten, An- 
tragen an Hannes Peters, A-5582 St. 
Michael/LG. 213 





Suche billigen Druckerfür 5-64; Ko- 
sten: höchstens 100 DM. An Hannes 
Peters, A-5582 St. Michael/LG. 213. 





Verkaufe Atar! TY Spiel 2600 mit Joy- 
stick + 2 Kassetten. Anfragen am 
Hannes Peters, A-5582 St. Michael/ 
LG. 213 


German Software Service 

Wie bieten Supersoftware fürdenC- 
16. Invasion USA (35 DM), Rambo 
First Blood Part I (35 DM), War Ga- 
mes (35 DM uwa. - Information: 
Frank Schmitz, Wagnerstr. 12 &, 
4270 Dorsten I 


GSompute mib 


C-16/116 Software 
Für nur 20 DM als Schein, Scheck 


oder per Nachnahme erhallen Sie ° 


20 Spiel- und Anwendungspro- 
gramme (keine Raubkopien). Liste 
80 Pf. Rückporte. Scheck, Schein 
oder Briefmarke bitte an Daniel 
Breitlich, Kleine Hölibergstr. &, 
6000 Frankfurt 50, Der Versand der 
Kassette erfolgt umgehend. 


+ 0-64 VC-20 PC-128 C-64 VC-20 + 
JOKER - Das C-64 + PC-123 Tele- 
magazin. Senden Sie uns3 DM, den 
Datenträger {Kass./Disk.) und einen 
mit 2 DM frankierten Rückumschlag 
und Sie erhalten in 7 Tagen „JOKER 
Nr. 1“ - VC-20 Softwaretiste für50 Pf. 
C-64 + PC-128 Scherzadvendure 
Advenia (Info für 50 Pf.) Kass./Disk.: 
20 DM - M. Platt, C-Orff-Str. 4, 
8721 Hambach 





“* Farbfernseh-Fehlersuche ** 
Schneider CPC 464 
Selbstgeschrieben ea. 30 KB. Es 
werden zu jedem Fehler die versch. 
Ursachen ausgegeben; Kass. oder 
Disc 3° 20,-- DM. Scheck oder 
Schein senden an: H. Sporrer, 
Jakob-Mayerstr 26, 6754 Otter- 
berg/Pfatz 


Zu verkaufen: 64K-Erweiterung für 
Commodore 5-16 (Einbau ohne Lö- 
ten) und Turbo-Tape {8x schneller 
Laden und Sichern) - zusammen für 
150,-- DM. M. Friedrichs, Klosterhof 
10, 2223 Meldorf, Tel, 04832/2894 


Verk. Spiele: C-16 K.Kop.Kompi. 
100 DM, Grafik Designer, Turbo-Ta- 
pe, Bigmac, Petch, Rockman, Tutti- 
Frutti, Robin rescue, Commando. . 
8. Mars, Fuchsbau 41, 3101 Lachen- 
do 








*"Dudeljöhl"Super-Sparangebotl* 
2 Spitzenmodule f. C-64: Orig. 
FREEZE-FRAME + The Final Car- 
tridge beides jew. neueste Version, 
- zum unglaublichen „Jetzt-aber- 
glieich-bestellen-Preis“: Nur 230 
DM (zusammen) NN+3,50 oder 
Vork. — Drunter gehts kaum noch. 
Weitere Hammer-Angebote in Kür- 
ze! "ASTRO, Postfach 1330, 3502 
Veilmar** 





* Schneider CPC 464/664/6128 " 

Zum Unkostenpreis von 10 DM er- 
halten Sie 3 Berechnungsprogram- 
me von Kradit, Aktien u. Verzinsung 
auf Tape incl. Versand. Nur gegen 
Vorkasse brieflich bei Harald Bartz, 
Ewaldstr. 1, 4100 Duisburg 14. 
Programme aus Eigenpröduktion!!! 
Suche gute Spiele auf Tape + DDI 1 


C-54, C-128, C-16/116 & VC-20 
Spielepakete, Text, Adress, YSI, Ta- 
bello, Kartei, Fibu, EK-VK, Termin La- 
ger, Video, Lotto, Digitala, Denhen, 
Schule, Biblo, KFZ, Handbücher 
etc. ab 9,90 DM. Katalog gegen 80 
Pf.-Briefmarke. Computersermvise 

T. Hofstede, A. d. Windmühle 8, 
5019 Bergheim 5 


Software für Lernprogramme u. Ver- 
haltenstraining. Von Pädag. u. Psy- 
shologen entwickelt. Wir erstellen 
Ihren auch Programme nach 
Wunsch!Liste anfordern für Schnei- 
der (Kass.u. Disk} bei: Dr. B. Kolb, 
Bergsir. 34, 6900 Heidelberg, 

Tet.: 062217474711 








Bewerbung als Programmautor 


Name: ______ 0000000 Vorname: 

Straße: _____—_————— ———— ————_ Woahnart:- 

Titel des Programmes:  —_———  — — — — — ..  Computersystem: 
Erforderlicher Speicherplatz: KBytes 


Erforderliche Peripherie: 


Ich versichere hiermit, daß ich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ich bin damiteinverstanden, daß Sie 
mein Programm in einer Zeitschriftabdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. Sollte mein Programmin der Zwischenzeit 
von anderer Seite erworben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daß ich 
Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Urheberrechte sie nicht besitzen, rechtli- 
che Schritte einleitet. 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


Folgende Unterlagen liegen diesem Schreiben bei; 
Kassette: _________ _ Piskete: _________ Dokumentation: _________ Listing: ______._.... Rückporto: _ 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten}: . 
(Bitte zweimal unterschreiben!} 


Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 


Auftrag für Gelegenheitsanzeigen in „Compute mit... 


Name und Adresse 


An „Compute mit...‘ 
Tronic-Verlag 
Postfach 


3440 Eschwege Unterschrift 

Unter der Rubrik „Kleinanzeigen“- FAR . . 
veröffentlichen wir Gelegenheits- - Ich wünsche folgenden Text zu veröffentlichen: 
anzeigen für Verkaufsangebofte, 
Kauf- und Tauschgesuche, Kon- 
taktaufnahme bzw. Erfahrungs- 
austausch USW. 
Unser Preis für „Kleinanzeigen“: 
Private Kleinanzeigen 

bis 5 Zeilen nur DM 5,- DM 
bis 10 Zeilen nur DM 10,- DM 
Jede gewerbliche Gelegenheits- 
anzeige 

bis 10 Zeilen nur 15,- DMI 
(dürfen nicht unter Chiffre er-- 
scheinen) 

Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 


Kleinanzeigen jetzt . 
noch preiswerter © Biete Hardware © biete Software © suche © Kontakte © Versch. 





Zutreffendes ankreuzen 
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kleinanzeigen 


“VC-20 * VC-20 * VC-20 * 
Supersoftware fast geschenkt!!! 
Kein Programm kostet mehr ats 3 
DM. Eine Liste gibtes gegen 80 Pf. in 
Briefmarken! Schreibt noch heute 
an SF-Soft, Sven Fauthaber, Müh- 
lenweg 7, 3401 Seulingen. UnserLi- 
ste wurde neu überarbeitet. 


*CPC * Topgames! * GPO * 
Tausche Wahnsinnsgames! Wer? 
Reif Eppinger, jun. Fraunhofer- 
weg 4, 7440 Nürtlingen, 

Tel.: 07022/8763 - Tape/Disc 


“. * Achtung “ar 

ZX 81 Software 16K 

1. Frogger, 2. Bowling + Robort + 
Bingo, 3. Blackjack + Slot, 4. States 
und Capitals, 5. Stamp Collector. 
5 DM pro Kassette, nur1x hier, keine 
Raubkopien, Tel.: 0718473733 


Schneider CPC 464 / 664 / 6128 
Preisgünstige Programme (Action, 
Denkspiele, Anwendungen) aus ET- 
genentwicklung für jeden CPC- 
Computer von Schneider erhalten 
Sie bei Friedrich Neupar, Posftach 
72, 8473 Pfreimd. Fordern Sie ein- 
fach das kostentose Info an. Post- 
karte genügt. 


C-64! 500 Freie Progr. Aus USA! Pu- 
blic-Domain-Software ineeng!. Spra- 
che {Massenweise Anwender-, 
Dienst-, Spiel- u. Lernprogr.) gegen 
Kopiergebühr von nur 1 DM abzuge- 
ben; z.B. Terminalprogramm, Co- 
mal, Music-Composer, Monitor, 
Fastcopy, Labelprint, Discdoctar. 
Katalog (5 DM) anfordern bei: 
TEXASOFT, Herthastr. 26, 

8000 München 19 


" VO-20 Software zu Mini-Preisen! * 
JetztbeiF Segovia, Nordwaldstr. 83, 
D-4407 Emsdetten, Infos gegen 
1,20 DM! Programme schon ab 2,-- 
DM! Kein Schutt! Bis dann! 


15 Top Spiele für nur 10 DM; z.B. 
SOS, Viper, Horror, Frog Match. 
Tel.: 07761/4186; 19 bis 20 Uhr 


664, C128, VG 20, C16/116 

Spiele, Termin, Lager, Fibu, EK-VK, 
Lotto, Adress, Tabello, Foto-, Film-, 
Video-, Musikarchiv, Digitalo, Denk- 
training, YS1, Kartei, Biblo, KFZ, 
Handbücher, ab 9,90 DM. 

Katalog gegen 80 Pf-Marke 
Computerservice T. Hofstede, 

An der Windmühle B, 5010 Bergheim 


C-16 Software 

20 verschiedene Spiel- u. Anwen- 
derprogramme (keine Raubkopien} 
für zusammen 20 DM. Schein an: D. 
Breitlich, Kl. Höllbergstr. 6, 

6000 Frankfurt 50 


LOTTO-STATISTIK G6AUS49 für 
EPC's. Alle Ziehungen seit 1955 
können in 10 SEk. ausgewertet wer- 
den! Beliebig viele Bank- und/oder 
Auswahlzahlen. Für 464, 664 und 
6126! K 45 DM; D3“ 58 DM; Scheck 
od. + NN! Super-Kritik im Schnei- 
der-Magazin 7/86, $. 28, 

Günter Blatt, Wiesenstraße 10, 
5509 Schillingen (info 1 DM) 


Software für Alle! 

{G-16 mit 16k 0. 64k und Plus 4 mit/ 
ohne Floppy) gibt's bei 

B. Lauer, Handgasse 10, 8700 Würz- 
burg. Gratisinfo gegen Rückporto. 











C64 PC128 VC20 C64 PC128 VC20 
VC20 Spitzenprogramme! Liste ge- 
gen SD-Pf-Briefmarke. Auch dk und 
16K. - C64 Scherzadventure „Adve- 
nia, die Frau die es zu bunt trieb", 
Kassete: 20 DM / Disk: 25 DM (vor- 
aus). - PC128 „Advenia 128“ Disk: 25 
DM. Infos über das Topadventure 
„Advenia“ für 50-Pf-Mark! M. Platt, 
Cari-Orif-Sir. 4, 8721 Hambach 


„O-16/116/Plus4" Spieleprogram- 
me, 17+4, Schiffeversenken, Las 
Vegas Spielautomat, Preis 10,-—- DM 
{ Programm. Scheck/Schein an: 

d. Schramme, Postfach 1631, 

3260 Rinteln 1 


C-18/116 mit Fioppy - Aufgepaßt! 

2 Super-Wirtschaftsspiele auf einer 
Diskette für nur 10 DM, insges. 
80KByte Software für 1-4 Spieler mit 
Anteilung u. ewig speicherbarem 
Spielstand. Lieferung erfolgt sofort. 
Einfach einen 10 BM-Schein in ei- 
nen Umschalg und abschicken an: 
Ralf Adiing, Lingener Straße 6, 
4576 Berge 


VS-64 Programme: 

Das Rift (Abent.-Adventure) 24,80 
War Games (3 Spiele) 14,80 
Programmsorte (Progr. sort.; 24,80 
Warenbestand o. Terminje 24,80 
Super B Datei o. Teleion-D, 24,80 
Rechnungen 29,80 
Rally; Spider Hunt; Comic: je 14,80 
und viele, viele mehr. Liste: DM 1, 
bei: OLDI-SOFT, Postfach 1132, 
2190 Cuxhaven 12 


* Computer Hard- & Software * 
G-64, 6-16, Atari, Schneider, MSX 








Alter Ego 69,— 
Herz von Afrika 56,-— 
Hanse 48,—- 
Spindizzy 52, 
Golf Consiruction Set 49,90 


Modem, Disketten und vieles mehr. 
Gesamtkatalog anfordern. 

H&S Werner Wohlfahristaetter, 
Postfach 30 1033, 4000 Düsseldorf 


C-54 Orig.; Disk: Nibelungen (65 
DM), Herz von A. (40 DM), Cass.: 





‘ Winter Games, Tour de France, on 


Field Foot, int. Basketball, Wortd 
$.Basketball, On Gourt Tennis, Rac.- 
Dest.Set, Richard P_ Rennzirkus, 
Hanse, Dragonriders of pern, Oing 
Pong, Fort Apocalypse, Show Jum- 
per, SpeedKing, Barry MCG.Boxing, 
zu je 30 DM - Tel.: 069/784983 


+++ C-16/116/+ 4 Software +++ 


Yie Are Kung Fu 24,90 
Wänter Olympiade 24,90 
Projekt Nova 22,90 
Mercenary 25,90 
Mercenary II 17,90 
Frank Brunos Boxing 24,90 
Bomb Jack 20, ‚90 


CoD. Service, Postfach 1304, 
7013 Senden 


888 C-16/116/+ 4 Software +r+ 


Favourite 4 (4 Spiele) 27,90 
Plus Paket (4 Spiete) 30,-- 
Superhits (6 Spiele} 27,90 
Classics 1 (4 Spieie) 30,-- 
Classics I (4 Spiele) 30,-- 
Exploding Fist 27,90 
Ghost and Goblins 27,30 
Paper Boy 27,90 


Comp. Service, Postfach 1304, 
7013 Senden 





Sie haben einen C-64/128, G-16/ 
116/+4, Schneider CPC 464/664/ 
6128? Wir haben die Programme, 
das Zubehör, die Peripherie. 
Fordern Sie unseren Katalog ko- 
stenlos an, bei Fa. H.u.R. Hübben, 
5429 Marienfels. Bitte Computertyp 
angeben!Ca. 1000 Artikel zu Super- 
preisen lieferbar Große Fach- 
buchauswahl! 


+++ Software G-16/116/+4 +++ 
Robo Knight — Street Olympic — 
Dark Tower — Hektik — Golf Sword 
of Destiny — Munch It— WaterGrand 
Prix — Trizones — 3-D Time Trek — 
Autobahn - Runner — Shark — Tazz 
— Vox -- Climb #— Shoot it Hopit— 
Alle Programme je nur 3,90 DM 
Computer Service: 

Tel.: 07307/6230 








Suche preisgünstige Software für 
C-16. Tel.:04336 7259 ab 16.00 Uhr, 
Andreas Geers, Po de Barg 8, 
2372 Owschlag 





Suche billigen C-16 
Angebot an W. Beerbom, Oppenwe- 
he 352, 4995 Stemwede 3 


Verkaufe VC-20 + Epromer + Pro. 
VHB 100,-- DM, Walter Beerbom, 
Öppenwehe 352, 4995 Stemwede 3 





Suche Basiccode-Lader für den ©- 
16/116 mit der Datasette. Wer hilft? 
Werner Vogt, Ringstr. 49, 

5409 Steinberg 


Skat-Programm gesucht, Basic oder 
6502 - Hinweise/Angebote an: 

H. Meier, Stettiner Strße 11, 

5657 Haan 1, Tel.: 02129/6373 

(19 bis 22 Uhr) 





Suche Drucker u. Datasette / u.o. 
Floppy sowie Anwenderprogr. f. C- 
16, Gomputemit-Ausg. 5/86. Ang. 
an: Tel.: 09532/519 od. H. Herbst, 
Bippach 19, 8617 Maroldsweisach 





Wer verkauft defekten Computer? 

(C-16/C-64/CPC oder andere). Bitte 
meiden bei: Hubert Mühlbacher, 
Plattenberg 3, 822 1 Waging am See. 
Verkaufe auch G-16/116 Programme! 


Suche Anwendungs- u. Spielpro- 
gramme sowie Monitor für Ö-16, 
Hermann Kuper, Schlanestr. 4, 
4441 Spelle 


Suche defekte u. beschädigte C-16 
auch ohne Tastatur und Gehäuse, 
Angebote an: Theodor Landl, 
Kaitersbergstraße 45, 

8300 Landshut 


ATARI * ATARI * ATARI * ATARI 
Suche dringend TURBO TAPe für 
ATARI. Zahle gut. Suche auch 


Mi 


' Tauschgetegenheiten (Disk/Cass.} 


Fragt nach Felix: Tel.: 06222/53946 





Ich kaufe Commodore 64, möglichst 
nicht zu teuer, kann auch etwas ver- 
schrammt sein oder andere Fehler 
haben; von miraus auch nicht. Dan- 
ke! Alexander Avrambos, Parkstr. 16, 
4750 Unna 





Compute mib 


Suche Datasette VO 1531, evil. m. 
leichten Defekt, sowie C-18 Softwa- 
re, -— Kontakte zu C-16-Beitzern im 
Raum PLZ 86-87, 
Te1.: 095327519 


Suche günstige Software für den C- " | 
suche ebenfalls günstigen . | 


116, 
Drucker für C-116. Angebote an: 
H.-J. Wienand, s’Heerenberger- 
straße 41, 4240 Emmerich 1 


VO-20/C-64 - Suche - 32Bylte Erw. 
für VC-20 (80-100 DM), suche C-64 
nicht defekt (300 DM). 

Thomas Gosjc (Löper}, Paderbor- 
nerstr. 25, 4799 Borchen, 

Tel.: 05251739600 


Suche Programm über Bigrkythmik 
für 0-16 64KByte - Berthold 
Nietschke, Ristedter Str. 54, 

2808 Syke-Gessel 


Wer hat günstig Software auf Kas- 
sette füruns? Auch selbstgaschrie- 
bene Programme! Besitzen einen C- 
16 mit 64K-Ram-Erweiterung. Mög« 
lichst Programme für die Schule etc. 
und Anwenderprogramme. Sendet 
Angebot und Information an: 
Daniela + Dahlia Schirmer, Fief- 
biöcken 1, 2354 Hohenwestedt 


Wer hat ad. kann mir Vokabeltrainer 
für Französisch auf S-16 erstellen? 
CH. Civerni, Nachtigallenweg 6, 
6951 Schefflenz, Tel.: 062938745 


Kontakte 


Commodore 64 Club HUP 

Unser Glub befaßt sich im Moment 

mit dem Commodore 64. Überjedes 

neue Clubmitglied, das mit einem 

anderem Computer arbeitet freuen 

wir uns. Jedes Mitglied erhält eine 

Clubzeichschrift mit Spielen, Tricks 
.. N unserm Ciub werden zusam- 

men Programme ausgearbeitet und 

an alle Mitglieder verschickt. 

Bitte Prospekt anfordern! Über inte- 

ressente aus dem Ausland freuen 

wir uns besonders. Da wir unwahr- 

scheinlich vielKorospondenzerhal- 

ten, bitte Rückporto beilegen - 
Danke! 

Computerclub HUP 

Brahmstraße 21 

Kennwort: „Prospekt” 

4690 Herne 1 

PS.: Im Prospekt enthalten sind: 
Programme, Adressen, Informatio- 
nen und sonstiges Allerlei ... 


XKXxVC-20xxxClubxxx 

Suche noch Mitglieder zum Tausch. 
Haben 800 Programme, kein Bei- 
trag. 

Bernd Steinmetz, Postfach 103631, 
3500 Kassel 
nn 
Hallo, G-16-Besitzer! Wertauschtmit 
mir im Umkreis Saarbrücken G-16- 
Software? 

Erik Herrmann, Hauptstraße 58 a, 
6601 Klarenthal 


C-16 Besitzer (29. J.) sucht Erfah- 
rungsaustausch mit Ebensolchen! 
Möchte auftretende Problemchen 
mit anderen schneller lösen u. 
selbst Hilfe geben. 

Tel.: 02 02 7 751723 
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*** The ECS-System “*'* 

Is looking for Freaks to swap 
Software, Hardware and Ideas! Hi 
Crackers, Contact usll! 
Postlagerkarte: A024013, 

5440 Mayen 


“Größter C-16/116/P4 Club*** 
Bietet einen tellen Service u.a. 
Fachzeitschrift. auf Datenträger. 
Informationen gegen 1,30 Porto. 
Hacker, Wingert 10, 5440 Mayen 14 








Rennersoft-Computer-Distribution! 
HARDWARE - SOFTWARE - PERIPHERIE 


COMPUTERSPIELE für 
Commondore C16/116+4 


z.B. Commando, Bomb-Jack, Airwolf, Legionaire, 
Frank Brunos Boxing, Schach, Atlantis usw. 


Liste M 1 anfordern! 
Teiefonservice täglich von 19-22 Uhr 
Postfach 820 - D-4440 Rheine - Tel.05971/81592 





Verschiedenes. 


Verk. C-116 + Datasette + Joystick + 
27 Cass,, z.B. Yie Ar Kung Fu, Musik 
Master, Comando, Mr. Punivers, usw. 
+ Basic Kurs Cass. + Buch + mehre- 
re C-16/116 Sonderhefte + C-16 Tps 
+ Tricks für 400,-- DM 

Dieimar Plew, Blücherstraße 11, ° 
4200 Oberhausen 1, T.0208/27889 





kleinanzeigen_ 


"ty AW Elektronik” ** 
Autorisierter Commodore Service, 
Tegeler Sir. 2, i000 Berlin 28, 

Tel.: 03074043331 - Mo-Fr 10-16 h 
Commodore Computer, Zubehör, 
Ersatzteite: G-16 64K-Ram-Erweite- 
rung 69 DM; Drucker CPA 80X 798 
DM; Proiogic-Dos 298 DM; Disket- 
ten ab 13,95 DM; Amiga Hard- u. 
Softwars; Speichererw. 198 DM; Div. 
Software 


*** Hallo GPC-Besitzer! *** 
Ich tippe Inre Programme 1. 2 Pfg. je 


Zeile ab (+ Rückporto 2,50). Schik- 


kan Sie 3"Disk,, Listing u. Geld- 
schein (RestwirdperScheckerstat- 
tet). Auch Tausch v. 6128-Programm 
{Listen gegen 80 Pfg.-Briefmarke). 
Marlies Klein, Finsterhackstr. 22, 
6580 Idar-Oberstein i 


ES EEEFE 
Compulerfreak der knapp beikasse 
ist, sucht Software. Bin zu gegensel- 
tigem Austausch bereit. Gomputer- 
typ: MXS. Nur Kassette - keine Dis- 
kette. Muß nicht Originalsplei, kann 
auch aufandere Kassette überspielt 
sein. Wer interessiert ist, schreibe 
an: Johann Döllen Jun. Kleinrei- 


“ chenbach 15, A-3900 Schwarzenau 


WANTERIH 


' Software-Autoren gesucht! 


System: C-18/C-7S/PCG-12B/CPG 
Sendet Eure Progr. mit einer Bedie- 
nungsanleitung an: Lutz Baeyert, 
EDYV-Service, Postisch 1158, 

4030 Ratingen 1 


* 2-16/118 REPARATUR-SERVICE * 
Repariere zu Tielspreisen, nach Ko- 
sienvoranschlag! ... und so wird's 
gemacht! Defekten C-16/116 in Ori- 
ginalKarton mit Kurzer Fehlerbe- 
schreibung und 5,-- DM für Rück- 
porto an: C-16/116 Service, 
Trimbser Weg 26, 5440 Mayen td 


Verkaufe 2 Input Kassettan NR 8/85 


9/85. Außerdem verkaufe ich 81 
Spiele mit Turbp Tape für C-64 zum 
Preis von 50 DM. Bitte schreibt an 
Harald u. Jürgen Guss, Guarnsted- 
terstr. 12, 2217 Kellinghusen. 
Schickt bitte nur in Scheinen. 
Außerdem verkaufe ich G-16 Spiele 
- 10 Stck. für 20 DM u. die neuesten 
Spiele aus der Sonderausgabe. 


Dfü - Suche Kontakt zu DFÜ-Nutzer. 
Bitte teilt mir Eure Erfahrungen mit. 
ich habe vor, mich auch DFU-mäßig 
zu betätigen. Danke! 

Czichowski, B., Ufarstr. 31, 

5170 Jülich 





Das nächste Heft 
erscheint am 17.11.1986 





C-16 * C-16 * C-16 * C-16 * C-16 * C-16 & C-16 * C-16 * 0-16 * C-16 & C-16 & C-16 & Cie 


C-16 WUSSTEN SIE, DASS ES SOVIELE SUPER-SPORTSPIELE FUER DEN C-16 GIBT? 


C-16 WINTER OLYMPIADE 29,95 LAWN TENNIS 34,95 C-16 
C-16 FRANK BAUNOS BOXING 29,95 WORLD CUP CARNIVAL 39,95 C-16 
C-16 INTERNATIONAL KARATE 24,95 WINTER OLYMPICS 29,95 C-16 
C-16 STREET OLYMPICS 9,95 GRANDMASTER (SCHACH) 24,95 C-16 
C-16 YIA AR KUNG FU 33,95 THAI BOXING 18,95 C-16 
WORLD SERIES BASEBALL 27,95 DALEY THOMPSONS STAR EVENTS 19,95 
C-16 GOLF 9,95 KUNG FU KID 7,95 C-16 
C-16 WORLD CUP 18,95 WIMBLEDON 29,95 C-16 
c-16 WUSSTEN SIE, DASS MAN MIT EINEM C-16 MEHR ALS NUR SPIELEN KANN? Cc-16 
C-16 MICRO TEXT 29,75 KURVENDISKUSSION (+16k) 19,95 G-16 
C-16 TURBO TAPE 22,75 GRAFIK DESIGNER . 19,95 C-15 
C-16 UTILITY 34,95 TONKOPFJUSTIERUNG DATASETTE 29,95 C-18 

616 VOKABEL 34,95 HOME OFFICE 39,95 C-16 

C16 MICRO DATEI 29,75 MUSIC MASTER 29,95 C18 

BEI UNS IST DAS BESTELLEN GANZ EINFACH. ANRUFEN ODER POSTKARTE GENÜGT. 

: 6-16 WIR LIEFERN DIE WARE FREI HAUS. ALSO OHNE ZUSÄTZLICHE PORTOKOSTEN ODER C-16 
C-16 NACHNAHMEGEBÜHREN. KEINE MINDESTBESTELLMENGEN. C-16 
C-16 VERSANDHANDEL R.LINDENSCHMIDT, SCHULSTR. 14, 4972 LÖHNE 2, TEL. 05732-728649 (FRAU LIPKOWSKI) C-16 
C-16 _ wıR FÜHREN SELBSTVERSTÄNDLICH NOCH VIEL MEHR SOFTWARE FÜR DEN C-16! (ÜBER 140 SPITZENPROGRAMME) c-16 
C-16 AUCH AUF DISKETTEN! FORDERT UNSERE KOSTENLOSEN INFOS AN!!!t! C-16 


C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * C-16 * c-16 * Cc-16 *& C-16 &.C-16 * C-16 
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PHILIPS NEUE MEDIEN — 


O&MF 





Der neue Philips Familien- 
Computer Damit man bei der 
Arbeit den Spaß nicht verliert. 


er neue Philips Farilien-Computer wird durchaus auch 

den lustigen Seiten des Lebens gerecht, Neben seinen 
täglichen Pflichten wie Textverarbeitung, Adressen-f |“ 
Datenverarbeitung und dem Bearbeiten von Statistiken, 
Bilanzen etc. reizt z.B. ein hochentwickeltes Grafikprogramm 
dazu, auch malden Künstler in Ihnen zu wecken. Und seine vielen 
Spiel- und Lernprogramme sind allemal abendfüllend. 

Aber dieser Philips Familien-Computer VG 8235 mit dem ein- 
gebauten Diskettenlaufwerk ist außerdem Herzstück der Philips 
Neue Medien Systeme, dem Zusammenschluß von Computer und 
Elementen ausden BereichenderTelekomraunikation undder Un- 
terhaltungselektronik. Übrigens - mitdem VG 8235 verstehen Sie 
sich, ohne erst das „Computern“ erlernen zu müssen: Sie nutzen 
einfach seine Funktionen. Mehr darüber von Philips GmbH, 
Geschäftsbereich Neue Medien? Postfach 1014.20,2000 Hamburg 1. 


+ Philips paßt 


in unsere Zukunft | D Ei i LI DS 











